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

(mouse-minor-mode-menu, minor-mode-menu-from-indicator):

Browse Source 
Move here from bindings.el
This commit is contained in:
Glenn Morris 2007-10-19 02:14:58 +00:00
parent 0660eaf1f7
commit 7e4e9c6618
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2007-10-19 Glenn Morris <rgm@gnu.org>
* bindings.el (mouse-minor-mode-menu)
(minor-mode-menu-from-indicator): Move to mouse.el.
* mouse.el (mouse-minor-mode-menu, minor-mode-menu-from-indicator):
Move here from bindings.el
2007-10-19 Richard Stallman <rms@gnu.org>
* help-fns.el (describe-function-1): Don't use the advice origname

20
lisp/mouse.el
View File

@ -151,6 +151,26 @@ PREFIX is the prefix argument (if any) to pass to the command."
;; mouse-major-mode-menu was using `command-execute' instead.
(call-interactively cmd))))
(defun minor-mode-menu-from-indicator (indicator)
"Show menu, if any, for minor mode specified by INDICATOR.
Interactively, INDICATOR is read using completion."
(interactive (list (completing-read "Minor mode indicator: "
(describe-minor-mode-completion-table-for-indicator))))
(let ((minor-mode (lookup-minor-mode-from-indicator indicator)))
(if minor-mode
(let* ((map (cdr-safe (assq minor-mode minor-mode-map-alist)))
(menu (and (keymapp map) (lookup-key map [menu-bar]))))
(if menu
(popup-menu menu)
(message "No menu for minor mode `%s'" minor-mode)))
(error "Cannot find minor mode for `%s'" indicator))))
(defun mouse-minor-mode-menu (event)
"Show minor-mode menu for EVENT on minor modes area of the mode line."
(interactive "@e")
(let ((indicator (car (nth 4 (car (cdr event))))))
(minor-mode-menu-from-indicator indicator)))
(defvar mouse-major-mode-menu-prefix) ; dynamically bound
(defun mouse-major-mode-menu (event &optional prefix)