# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 997368772 0
# Node ID 7047bd7df7fbd7b8f8d9f8ab46e68cf45c7ee2cd
# Parent  ad2af6022ebbbffbdf806398789f62d5cfdb818e
(define-minor-mode): Use
mode-line-minor-mode-keymap for the minor mode name.

diff -r ad2af6022ebb -r 7047bd7df7fb lisp/emacs-lisp/easy-mmode.el
--- 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.