procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(define-minor-mode): Don't add properties

Browse source 
to the name since they're added by mode-line-format already.
(define-minor-mode): Run (,mode -1) when needed.
This commit is contained in:
Stefan Monnier 2002-09-27 21:12:12 +00:00
parent 643415c46b
commit bb76239ba1
1 changed files with 3 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/easy-mmode.el
View file

@ -133,13 +133,6 @@ BODY contains code that will be executed each time the mode is (dis)activated.
(setq group
`(:group ',(intern (replace-regexp-in-string "-mode\\'" ""
mode-name)))))
;; Add default properties to LIGHTER.
(unless (or (not (stringp lighter)) (get-text-property 0 'local-map lighter)
(get-text-property 0 'keymap lighter))
(setq lighter
(propertize lighter
'local-map mode-line-minor-mode-keymap
'help-echo "mouse-3: minor mode menu")))
`(progn
;; Define the variable to enable or disable the mode.
@ -227,9 +220,9 @@ With zero or negative ARG turn mode off.
(symbol-value ',keymap-sym))))
;; If the mode is global, call the function according to the default.
,(if (and globalp (null init-value))
`(if (and load-file-name ,mode)
(eval-after-load load-file-name '(,mode 1)))))))
,(if globalp
`(if (and load-file-name (not (equal ,init-value ,mode)))
(eval-after-load load-file-name '(,mode (if ,mode 1 -1))))))))
;;;
;;; make global minor mode