Mercurial > emacs

comparison lisp/startup.el @ 7509:dd0db01bc9f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(precompute-menubar-bindings): Don't precompute menus if not using x.
author Richard M. Stallman <rms@gnu.org>
date Mon, 16 May 1994 04:49:23 +0000
parents 099233e3a3be
children c06b9bcb12e7
comparison
equal deleted inserted replaced
7508:a15923bc982d 7509:dd0db01bc9f4
183 (or menubar-bindings-done 183 (or menubar-bindings-done
184 (precompute-menubar-bindings)))))) 184 (precompute-menubar-bindings))))))
185 185
186 ;; Precompute the keyboard equivalents in the menu bar items. 186 ;; Precompute the keyboard equivalents in the menu bar items.
187 (defun precompute-menubar-bindings () 187 (defun precompute-menubar-bindings ()
188 (if (fboundp 'x-popup-menu) 188 (if (eq window-system 'x)
189 (let ((submap (lookup-key global-map [menu-bar]))) 189 (let ((submap (lookup-key global-map [menu-bar])))
190 (while submap 190 (while submap
191 (and (consp (car submap)) 191 (and (consp (car submap))
192 (symbolp (car (car submap))) 192 (symbolp (car (car submap)))
193 (stringp (car-safe (cdr (car submap)))) 193 (stringp (car-safe (cdr (car submap))))