diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-10-19 02:14:21 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-10-19 02:14:21 +0000 |
| commit | 0660eaf1f7ce874eaf09a54e3367caa0d9fca693 (patch) | |
| tree | 7f4188f6f4a69a0a1c665c2723550effeabca521 /lisp/bindings.el | |
| parent | 14c879f442be0b60adb6bc241b64611af58a1365 (diff) | |
| download | emacs-0660eaf1f7ce874eaf09a54e3367caa0d9fca693.tar.gz | |
(mouse-minor-mode-menu)
(minor-mode-menu-from-indicator): Move to mouse.el.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index ad7470e07e3..52d7a6f6a59 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -493,26 +493,6 @@ Menu of mode operations in the mode line.") (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") |