emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-goggles 3b874c7630 178/225: Set mark advice: show hin


From: ELPA Syncer
Subject: [nongnu] elpa/evil-goggles 3b874c7630 178/225: Set mark advice: show hint on whitespace-only lines
Date: Wed, 12 Jan 2022 08:59:06 -0500 (EST)

branch: elpa/evil-goggles
commit 3b874c7630d8d6c316ad2cd8efdc0b8dcd407dac
Author: Evgeni Kolev <evgenysw@gmail.com>
Commit: Evgeni Kolev <evgenysw@gmail.com>

    Set mark advice: show hint on whitespace-only lines
---
 evil-goggles.el | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index f36b2216cb..9671cc800a 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -652,16 +652,10 @@ CHAR POS ADVANCE are the arguments of the original 
function."
   (evil-goggles--funcall-preserve-interactive orig-fun char pos advance)
   ;; maybe show the goggles overlay
   (when (<= ?a char ?z)
-    (save-excursion
-      (when pos
-        (goto-char pos))
-      (let ((beg (save-excursion
-                   (move-beginning-of-line nil)
-                   (point)))
-            (end (1+ (save-excursion
-                       (move-end-of-line nil)
-                       (point)))))
-        (evil-goggles--show-hint beg end 'evil-goggles-set-marker-face)))))
+    (let ((beg (line-beginning-position))
+          (end (1+ (line-end-position)))
+          (evil-goggles--hint-on-empty-lines t))
+      (evil-goggles--with-async-hint beg end 'evil-goggles-set-marker-face))))
 
 ;;; ex global
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]