Mercurial > emacs
diff lisp/startup.el @ 16198:20a63f6713dc
(normal-top-level, command-line-1, command-line):
Test for ms-windows instead of win32, and use memq.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 15 Sep 1996 02:13:16 +0000 |
parents | 439578110829 |
children | eb3f3934a185 |
line wrap: on
line diff
--- a/lisp/startup.el Sun Sep 15 02:03:32 1996 +0000 +++ b/lisp/startup.el Sun Sep 15 02:13:16 1996 +0000 @@ -378,7 +378,7 @@ (and window-setup-hook (run-hooks 'window-setup-hook)) (or menubar-bindings-done - (if (or (eq window-system 'x) (eq window-system 'win32)) + (if (memq window-system '(x ms-windows)) (precompute-menubar-bindings))))))) ;; Precompute the keyboard equivalents in the menu bar items. @@ -536,7 +536,7 @@ (if (fboundp 'frame-initialize) (frame-initialize)) ;; If frame was created with a menu bar, set menu-bar-mode on. - (if (or (not (or (eq window-system 'x) (eq window-system 'win32))) + (if (or (not (memq window-system '(x ms-windows))) (> (cdr (assq 'menu-bar-lines (frame-parameters))) 0)) (menu-bar-mode t)) @@ -688,7 +688,7 @@ (setq window-setup-hook nil) ;; Do this now to avoid an annoying delay if the user ;; clicks the menu bar during the sit-for. - (if (or (eq window-system 'x) (eq window-system 'win32)) + (if (memq window-system '(x ms-windows)) (precompute-menubar-bindings)) (setq menubar-bindings-done t) (unwind-protect