From e17ed9add8ab6405a812db34eaea6392f8017ed6 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 13 Sep 2009 21:32:58 +0000 Subject: [PATCH] * term/x-win.el (x-menu-bar-open): Only call accelerate-menu if it is defined (Bug#4405). --- lisp/ChangeLog | 5 +++++ lisp/term/x-win.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0ad8e2f07cf..c10bd3a0cc4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-09-13 Chong Yidong + + * term/x-win.el (x-menu-bar-open): Only call accelerate-menu if it + is defined (Bug#4405). + 2009-09-13 Vincent Belaïche * recentf.el (recentf-cleanup): Use a hash table to find diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 39eab12f2a7..2648865e0a0 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -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))) -- 2.39.5