[nongnu] elpa/cdlatex 64eb3570b5 39/49: Use define-minor-mode to define cdlatex-mode

[ELPA Syncer]

branch: elpa/cdlatex
commit 64eb3570b55a40e15729b5cad5cad78593e56701
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Use define-minor-mode to define cdlatex-mode
---
 cdlatex.el | 27 ++++-----------------------
 1 file changed, 4 insertions(+), 23 deletions(-)

diff --git a/cdlatex.el b/cdlatex.el
index f76c03c393..4f4d38387a 100644
--- a/cdlatex.el
+++ b/cdlatex.el
@@ -634,7 +634,7 @@ automatic help when idle for more than this amount of time."
   (cdlatex-mode t))
 
 ;;;###autoload
-(defun cdlatex-mode (&optional arg)
+(define-minor-mode cdlatex-mode
   "Minor mode for editing scientific LaTeX documents.
 
 Here is a list of features: \\<cdlatex-mode-map>
@@ -688,29 +688,10 @@ displaying the available characters and their meanings.
 
 Under X, many functions will be available also in a menu on the menu bar.
 
-
-  (interactive "P")
-  (setq cdlatex-mode (not (or (and (null arg) cdlatex-mode)
-                             (<= (prefix-numeric-value arg) 0))))
-
-  ; Add or remove the menu, and run the hook
-  (if cdlatex-mode
-      (progn
-       (easy-menu-add cdlatex-mode-menu)
-       (run-hooks 'cdlatex-mode-hook)
-       (cdlatex-compute-tables))
-    (easy-menu-remove cdlatex-mode-menu)))
-    
-(or (assoc 'cdlatex-mode minor-mode-alist)
-    (setq minor-mode-alist
-          (cons '(cdlatex-mode " CDL") minor-mode-alist)))
-
-(or (assoc 'cdlatex-mode minor-mode-map-alist)
-    (setq minor-mode-map-alist
-          (cons (cons 'cdlatex-mode cdlatex-mode-map)
-                minor-mode-map-alist)))
-
 Entering `cdlatex-mode' calls the hook cdlatex-mode-hook."
+  :lighter " CDL"
+  (when cdlatex-mode
+    (cdlatex-compute-tables)))
 
 ;;; ===========================================================================
 ;;;