Mercurial > emacs
changeset 85433:04e61cffd3c0
(mouse-minor-mode-menu)
(minor-mode-menu-from-indicator): Move to mouse.el.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 19 Oct 2007 02:14:21 +0000 |
| parents | 0beaa593974a |
| children | 1921151f9249 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 0 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bindings.el Fri Oct 19 02:12:13 2007 +0000 +++ b/lisp/bindings.el Fri Oct 19 02:14:21 2007 +0000 @@ -493,26 +493,6 @@ (interactive "@e") (x-popup-menu event mode-line-mode-menu)) -(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))) - -(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 mode-line-minor-mode-help (event) "Describe minor mode for EVENT on minor modes area of the mode line." (interactive "@e")