Mercurial > emacs

comparison lisp/mouse.el @ 42004:2e5cc8d12bf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo.
author Pavel Janík <Pavel@Janik.cz>
date Thu, 13 Dec 2001 07:56:02 +0000
parents dab4b3303b4c
children 111acebcb4e0
comparison
equal deleted inserted replaced
42003:a22f2256bce0 42004:2e5cc8d12bf7
164 menubar 164 menubar
165 (setq mouse-major-mode-menu-prefix (list (car submap))) 165 (setq mouse-major-mode-menu-prefix (list (car submap)))
166 (lookup-key menubar (vector (car submap))))))) 166 (lookup-key menubar (vector (car submap)))))))
167 167
168 (defun mouse-popup-menubar (event prefix) 168 (defun mouse-popup-menubar (event prefix)
169 "Pops up a menu equiavlent to the menu bar a keyboard EVENT with PREFIX. 169 "Pops up a menu equivalent to the menu bar a keyboard EVENT with PREFIX.
170 The contents are the items that would be in the menu bar whether or 170 The contents are the items that would be in the menu bar whether or
171 not it is actually displayed." 171 not it is actually displayed."
172 (interactive "@e \nP") 172 (interactive "@e \nP")
173 (run-hooks 'activate-menubar-hook 'menu-bar-update-hook) 173 (run-hooks 'activate-menubar-hook 'menu-bar-update-hook)
174 (let* ((local-menu (and (current-local-map) 174 (let* ((local-menu (and (current-local-map)