# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 769063763 0
# Node ID dd0db01bc9f4ceea807a512f134e78d227cba378
# Parent  a15923bc982dca41c4a59a549b8b3bdbf9cacf42
(precompute-menubar-bindings): Don't precompute menus if not using x.

diff -r a15923bc982d -r dd0db01bc9f4 lisp/startup.el
--- a/lisp/startup.el	Sun May 15 21:39:38 1994 +0000
+++ b/lisp/startup.el	Mon May 16 04:49:23 1994 +0000
@@ -185,7 +185,7 @@
 
 ;; 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))