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

(define-minor-mode): Use

Browse source 
mode-line-minor-mode-keymap for the minor mode name.
This commit is contained in:
Gerd Moellmann 2001-08-09 14:54:05 +00:00
parent 0c107014e0
commit ed771c89bc
2 changed files with 22 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,6 @@
;;; easy-mmode.el --- easy definition for major and minor modes
;; Copyright (C) 1997,2000 Free Software Foundation, Inc.
;; Copyright (C) 1997, 2000, 2001 Free Software Foundation, Inc.
;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr>
;; Maintainer: Stefan Monnier <monnier@gnu.org>
@ -135,11 +135,9 @@ BODY contains code that will be executed each time the mode is (dis)activated.
(unless (or (not (stringp lighter)) (get-text-property 0 'local-map lighter)
(get-text-property 0 'keymap lighter))
(setq lighter
(apply 'propertize lighter
'local-map (make-mode-line-mouse2-map mode)
(unless (get-text-property 0 'help-echo lighter)
(list 'help-echo
(format "mouse-2: turn off %s" pretty-name))))))
(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.