procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* term/x-win.el (x-menu-bar-open): Only call accelerate-menu if it

Browse source 
is defined (Bug#4405).
This commit is contained in:
Chong Yidong 2009-09-13 21:32:58 +00:00
parent 120812a0ba
commit e17ed9add8
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-09-13 Chong Yidong <cyd@stupidchicken.com>
* term/x-win.el (x-menu-bar-open): Only call accelerate-menu if it
is defined (Bug#4405).
2009-09-13 Vincent Belaïche <vincent.belaiche@gmail.com>
* recentf.el (recentf-cleanup): Use a hash table to find

4
lisp/term/x-win.el
View file

@ -1445,7 +1445,9 @@ The value nil is the same as this list:
(defun x-menu-bar-open (&optional frame)
"Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'."
(interactive "i")
(if menu-bar-mode (accelerate-menu frame)
(if (and menu-bar-mode
(fboundp 'accelerate-menu))
(accelerate-menu frame)
(tmm-menubar)))