Mercurial > emacs
changeset 38761:7047bd7df7fb
(define-minor-mode): Use
mode-line-minor-mode-keymap for the minor mode name.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 09 Aug 2001 14:52:52 +0000 |
| parents | ad2af6022ebb |
| children | c1945c69cde2 |
| files | lisp/emacs-lisp/easy-mmode.el |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/easy-mmode.el Thu Aug 09 14:52:27 2001 +0000 +++ b/lisp/emacs-lisp/easy-mmode.el Thu Aug 09 14:52:52 2001 +0000 @@ -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 @@ (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.