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

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

[nongnu] elpa/guru-mode 3221bcd 08/42: provided a non-global version of


From: ELPA Syncer
Subject: [nongnu] elpa/guru-mode 3221bcd 08/42: provided a non-global version of guru-mode
Date: Wed, 11 Aug 2021 09:58:27 -0400 (EDT)

branch: elpa/guru-mode
commit 3221bcdef1f7418d57a886a570596a10f81619fe
Author: Bozhidar Batsov <bozhidar@batsov.com>
Commit: Bozhidar Batsov <bozhidar@batsov.com>

    provided a non-global version of guru-mode
---
 guru-mode.el | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/guru-mode.el b/guru-mode.el
index 43048c2..420d01e 100644
--- a/guru-mode.el
+++ b/guru-mode.el
@@ -69,11 +69,23 @@
   (define-key guru-mode-map
     (read-kbd-macro (first cell)) (guru-rebind (first cell) (rest cell))))
 
+;; define minor mode
 ;;;###autoload
-(define-minor-mode guru-mode
-  "A minor mode that teaches to help you use Emacs the way it was intended to 
be used."
-  t " guru"
-  'guru-mode-map :global t)
+(define-globalized-minor-mode guru-global-mode guru-mode guru-on)
+
+(defun guru-on ()
+  "Enable Guru."
+  (guru-mode +1))
+
+(defun guru-off ()
+  "Disable Guru."
+  (guru-mode -1))
+
+;;;###autoload
+(define-minor-mode guru-mode  "A minor mode that teaches to help you use Emacs 
the way it was intended to be used."
+  :lighter " guru"
+  :keymap guru-mode-map
+  :group 'guru)
 
 (provide 'guru-mode)
 ;;; guru-mode.el ends here



reply via email to

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