diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-08-09 14:54:05 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-08-09 14:54:05 +0000 |
| commit | ed771c89bc5cb0ce8140c05fb89188d92f3e9cc1 (patch) | |
| tree | ec6bc894b3529d06f53474c5cee2c89a3b23a097 /lisp/emacs-lisp/easy-mmode.el | |
| parent | 0c107014e042fa9fbb7d8cd1169a091bcc5717d3 (diff) | |
| download | emacs-ed771c89bc5cb0ce8140c05fb89188d92f3e9cc1.tar.gz emacs-ed771c89bc5cb0ce8140c05fb89188d92f3e9cc1.tar.bz2 emacs-ed771c89bc5cb0ce8140c05fb89188d92f3e9cc1.zip | |
(define-minor-mode): Use
mode-line-minor-mode-keymap for the minor mode name.
Diffstat (limited to 'lisp/emacs-lisp/easy-mmode.el')
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index bf7940c2218..0030600028d 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -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. |