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

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

[nongnu] elpa/telephone-line 1f2389212b 024/195: Remove -enable and -dis


From: ELPA Syncer
Subject: [nongnu] elpa/telephone-line 1f2389212b 024/195: Remove -enable and -disable entirely
Date: Wed, 5 Jan 2022 02:59:18 -0500 (EST)

branch: elpa/telephone-line
commit 1f2389212bda463a2fe89ff290b60be00f7d327c
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    Remove -enable and -disable entirely
    
    You can just use (telephone-line-mode t) and (telephone-line-mode nil)
---
 telephone-line.el | 19 ++++---------------
 1 file changed, 4 insertions(+), 15 deletions(-)

diff --git a/telephone-line.el b/telephone-line.el
index a7f9a390bb..e7d170e360 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -268,27 +268,16 @@ separators, as they are conditional, are evaluated 
on-the-fly."
 
 (defvar -default-mode-line mode-line-format)
 
-:autoload
-(defun -disable ()
-  "Revert to the default Emacs mode-line."
-  (interactive)
-  (setq-default mode-line-format -default-mode-line))
-
-:autoload
-(defun -enable ()
-  "Setup the default mode-line."
-  (interactive)
-  (setq-default mode-line-format `("%e" 
,@(telephone-line--generate-mode-line))))
-
 :autoload
 (define-minor-mode mode
   "Toggle telephone-line on or off."
   :group 'telephone-line
   :global t
   :lighter nil
-  (if telephone-line-mode
-      (-enable)
-    (-disable)))
+  (setq-default mode-line-format
+                (if telephone-line-mode
+                    `("%e" ,@(telephone-line--generate-mode-line))
+                  -default-mode-line)))
 
 ) ; End of namespace
 



reply via email to

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