mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-31 20:02:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-05-16 04:49:23 +00:00
parent 79cf745601
commit 42a49b29f4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/startup.el
View File

@ -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))