Mercurial > emacs
comparison lisp/mouse.el @ 91058:4b09bb044f38
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 899-900)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 129-130)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 259-260)
- Merge from emacs--rel--22
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-272
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 20 Oct 2007 02:22:59 +0000 |
parents | 424b655804ca 1921151f9249 |
children | 2fcaae6177a5 |
comparison
equal
deleted
inserted
replaced
91057:5e056bb0109f | 91058:4b09bb044f38 |
---|---|
148 ;; `setup-specified-language-environment', for instance, | 148 ;; `setup-specified-language-environment', for instance, |
149 ;; expects this to be set from a menu keymap. | 149 ;; expects this to be set from a menu keymap. |
150 (setq last-command-event (car (last event))) | 150 (setq last-command-event (car (last event))) |
151 ;; mouse-major-mode-menu was using `command-execute' instead. | 151 ;; mouse-major-mode-menu was using `command-execute' instead. |
152 (call-interactively cmd)))) | 152 (call-interactively cmd)))) |
153 | |
154 (defun minor-mode-menu-from-indicator (indicator) | |
155 "Show menu, if any, for minor mode specified by INDICATOR. | |
156 Interactively, INDICATOR is read using completion." | |
157 (interactive (list (completing-read "Minor mode indicator: " | |
158 (describe-minor-mode-completion-table-for-indicator)))) | |
159 (let ((minor-mode (lookup-minor-mode-from-indicator indicator))) | |
160 (if minor-mode | |
161 (let* ((map (cdr-safe (assq minor-mode minor-mode-map-alist))) | |
162 (menu (and (keymapp map) (lookup-key map [menu-bar])))) | |
163 (if menu | |
164 (popup-menu menu) | |
165 (message "No menu for minor mode `%s'" minor-mode))) | |
166 (error "Cannot find minor mode for `%s'" indicator)))) | |
167 | |
168 (defun mouse-minor-mode-menu (event) | |
169 "Show minor-mode menu for EVENT on minor modes area of the mode line." | |
170 (interactive "@e") | |
171 (let ((indicator (car (nth 4 (car (cdr event)))))) | |
172 (minor-mode-menu-from-indicator indicator))) | |
153 | 173 |
154 (defvar mouse-major-mode-menu-prefix) ; dynamically bound | 174 (defvar mouse-major-mode-menu-prefix) ; dynamically bound |
155 | 175 |
156 (defun mouse-major-mode-menu (event &optional prefix) | 176 (defun mouse-major-mode-menu (event &optional prefix) |
157 "Pop up a mode-specific menu of mouse commands. | 177 "Pop up a mode-specific menu of mouse commands. |