From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 16 May 1994 04:49:23 +0000 (+0000)
Subject: (precompute-menubar-bindings): Don't precompute menus if not using x.
X-Git-Tag: emacs-19.34~8344
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42a49b29f46a5c9476b3b5e16760484f3301da68;p=emacs.git

(precompute-menubar-bindings): Don't precompute menus if not using x.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 01a5101599f..2bfb5863f27 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -185,7 +185,7 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
 
 ;; Precompute the keyboard equivalents in the menu bar items.
 (defun precompute-menubar-bindings ()
-  (if (fboundp 'x-popup-menu)
+  (if (eq window-system 'x)
       (let ((submap (lookup-key global-map [menu-bar])))
 	(while submap
 	  (and (consp (car submap))