Mercurial > emacs

comparison lisp/mouse.el @ 91058:4b09bb044f38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.