]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/mouse.el (minor-mode-menu-from-indicator):
authorGlenn Morris <rgm@gnu.org>
Fri, 24 Apr 2015 18:46:42 +0000 (14:46 -0400)
committerGlenn Morris <rgm@gnu.org>
Fri, 24 Apr 2015 18:46:42 +0000 (14:46 -0400)
Handle non-function members of minor-mode-map-alist.  (Bug#20201)

lisp/mouse.el

index 5f3fa5d7694a4e39a4dba2f11db6dbac9476a989..7854d32eb20421a4d7078da5bea26fb183cf019f 100644 (file)
@@ -152,13 +152,16 @@ items `Turn Off' and `Help'."
       (setq menu
             (if menu
                 (mouse-menu-non-singleton menu)
-             `(keymap
-                ,indicator
-                (turn-off menu-item "Turn Off minor mode" ,mm-fun)
-                (help menu-item "Help for minor mode"
-                      (lambda () (interactive)
-                        (describe-function ',mm-fun))))))
-      (popup-menu menu))))
+              (if (fboundp mm-fun)      ; bug#20201
+                  `(keymap
+                    ,indicator
+                    (turn-off menu-item "Turn Off minor mode" ,mm-fun)
+                    (help menu-item "Help for minor mode"
+                          (lambda () (interactive)
+                            (describe-function ',mm-fun)))))))
+      (if menu
+          (popup-menu menu)
+        (message "No menu available")))))
 
 (defun mouse-minor-mode-menu (event)
   "Show minor-mode menu for EVENT on minor modes area of the mode line."