From 0c107014e042fa9fbb7d8cd1169a091bcc5717d3 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 9 Aug 2001 14:52:27 +0000 Subject: [PATCH] (add-minor-mode): Use mode-line-minor-mode-keymap for the minor mode name. --- lisp/subr.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index f2f71a3fe3b..eb09e39fb59 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1547,11 +1547,9 @@ If TOGGLE has a `:menu-tag', that is used for the menu item's label." (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) -- 2.39.2