mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

* lisp/mouse.el (minor-mode-menu-from-indicator):

Browse Source 
Handle non-function members of minor-mode-map-alist.  (Bug#20201)
This commit is contained in:
Glenn Morris 2015-04-24 14:46:42 -04:00
parent 82d0f42a4c
commit 5bc9f498de
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/mouse.el
View 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."