mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(org-mouse-show-context-menu): Use mouse-menu-major-mode-map, if

Browse source 
defined, rather than the obsolete mouse-major-mode-menu.
This commit is contained in:
Glenn Morris 2009-01-16 03:28:30 +00:00
parent b60861e61f
commit 0e47efc503
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/org/ChangeLog
View file

@ -1,3 +1,9 @@
2009-01-16 Glenn Morris <rgm@gnu.org>
* org-mouse.el (org-mouse-show-context-menu): Use
mouse-menu-major-mode-map, if defined, rather than the obsolete
mouse-major-mode-menu.
2008-12-23 Carsten Dominik <dominik@science.uva.nl>
* org-remember.el (org-remember-handler): Safer way to get a new

5
lisp/org/org-mouse.el
View file

@ -217,7 +217,10 @@ this function is called. Otherwise, the current major mode menu is used."
(sit-for 0)))
(if (functionp org-mouse-context-menu-function)
(funcall org-mouse-context-menu-function event)
(mouse-major-mode-menu event prefix)))
(if (fboundp 'mouse-menu-major-mode-map)
(popup-menu (mouse-menu-major-mode-map) event prefix)
(with-no-warnings ; don't warn about fallback, obsolete since 23.1
(mouse-major-mode-menu event prefix)))))
(setq this-command 'mouse-save-then-kill)
(mouse-save-then-kill event)))