branch: elpa/evil-goggles
commit 1fd103dc13d629edebdf042b75f951e6fddc265b
Author: Evgeni Kolev <[email protected]>
Commit: Evgeni Kolev <[email protected]>
evil-goggles--show-p: allow the "whitespace-only" check to be skipped
---
evil-goggles.el | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/evil-goggles.el b/evil-goggles.el
index a9ec93497b..f36b2216cb 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -149,6 +149,9 @@ overlay must not be re-displayed.")
(defvar evil-goggles--force-block nil
"When non-nil, force the hint about to be shown to be a block.")
+(defvar evil-goggles--hint-on-empty-lines nil
+ "When nil, the default, function `evil-goggles--show-p' will not return t
for whitespace-only regions.")
+
(defun evil-goggles--show-p (beg end)
"Return t if the overlay should be displayed in region BEG to END."
(and (not evil-inhibit-operator-value)
@@ -164,8 +167,10 @@ overlay must not be re-displayed.")
(not (evil-insert-state-p))
;; don't show overlay when evil-mc has active cursors
(not (and (fboundp 'evil-mc-has-cursors-p) (evil-mc-has-cursors-p)))
- ;; don't show overlay when the region has nothing but whitespace
- (not (null (string-match-p "[^ \t\n]" (buffer-substring-no-properties
beg end))))))
+ ;; don't show hint when the region has nothing but whitespace, but skip
this check if `evil-goggles--hint-on-empty-lines' is t
+ (if evil-goggles--hint-on-empty-lines
+ t
+ (not (null (string-match-p "[^ \t\n]" (buffer-substring-no-properties
beg end)))))))
(defun evil-goggles--overlay-insert-behind-hook (ov afterp beg end &optional
len)
"Function which grows/shriks the overlay OV when its text changes.
