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

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

[nongnu] elpa/evil-goggles 57f45c2582 189/225: Temporarily disable chang


From: ELPA Syncer
Subject: [nongnu] elpa/evil-goggles 57f45c2582 189/225: Temporarily disable change hint until #19 is resolved
Date: Wed, 12 Jan 2022 08:59:07 -0500 (EST)

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

    Temporarily disable change hint until #19 is resolved
---
 evil-goggles.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index 48c2b57b6c..5c228250a0 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -330,7 +330,7 @@ so this package can work with Emacs 24"
        (evil-goggles--funcall-interactively ,fun ,@args)
      (funcall ,fun ,@args)))
 
-(defmacro evil-goggles--define-switch-and-face (switch-name switch-doc 
face-name face-doc)
+(defmacro evil-goggles--define-switch-and-face (switch-name switch-doc 
face-name face-doc &optional off-by-default)
   "Helper macro defining an on/off var, a face, and duration var.
 
 SWITCH-NAME is the name of the on/off variable.
@@ -338,10 +338,11 @@ SWITCH-DOC is the docstring for SWITCH-NAME.
 FACE-NAME is the name of the custom face.
 FACE-DOC is the docstring for FACE-NAME.
 DUR-NAME is the name of the duration variable.
-DUR-DOC is the docstring for DUR-NAME."
+DUR-DOC is the docstring for DUR-NAME.
+OFF-BY-DEFAULT if non-nil will set the switch to `nil'"
   (declare (indent 7) (debug t))
   `(progn
-     (defcustom ,switch-name t
+     (defcustom ,switch-name ,(if off-by-default nil t)
        ,(concat switch-doc "\nThis variable must be set before 
`evil-goggles-mode' is enabled")
        :type 'boolean
        :group 'evil-goggles)
@@ -408,7 +409,8 @@ BEG END &OPTIONAL TYPE REGISTER YANK-HANDLER are the 
arguments of the original f
 
 (evil-goggles--define-switch-and-face
     evil-goggles-enable-change "If non-nil, enable change support"
-    evil-goggles-change-face "Face for change action")
+    evil-goggles-change-face "Face for change action"
+    :off-by-default)
 
 (defun evil-goggles--evil-change-advice (orig-fun beg end &optional type 
register yank-handler delete-func)
   "Around-advice for function `evil-change`.



reply via email to

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