From 42a49b29f46a5c9476b3b5e16760484f3301da68 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 16 May 1994 04:49:23 +0000 Subject: [PATCH] (precompute-menubar-bindings): Don't precompute menus if not using x. --- lisp/startup.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.5