Mercurial > emacs

diff lisp/subr.el @ 38760:ad2af6022ebb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(add-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:27 +0000
parents 67b464da13ec
children fb85410efef7
line wrap: on
line diff
--- a/lisp/subr.el	Thu Aug 09 14:52:02 2001 +0000
+++ b/lisp/subr.el	Thu Aug 09 14:52:27 2001 +0000
@@ -1547,11 +1547,9 @@
     (let ((existing (assq toggle minor-mode-alist)))
       (when (and (stringp name) (not (get-text-property 0 'local-map name)))
 	(setq name
-	      (apply 'propertize name
-		     'local-map (make-mode-line-mouse2-map toggle-fun)
-		     (unless (get-text-property 0 'help-echo name)
-		       (list 'help-echo
-			     (format "mouse-2: turn off %S" toggle))))))
+	      (propertize name
+			  'local-map mode-line-minor-mode-keymap
+			  'help-echo "mouse-3: minor mode menu")))
       (if existing
 	  (setcdr existing (list name))
 	(let ((tail minor-mode-alist) found)