martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[win32] (normal-top-level, command-line, command-line-1):

Browse Source 
Test for 'win32 window system as well as 'x.
This commit is contained in:
Geoff Voelker
1995-11-07 07:47:22 +00:00
parent a3af214310
commit 39d6d6be55
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/startup.el
View File

@@ -301,7 +301,7 @@ this prefix to create a unique file name.")
(and window-setup-hook
(run-hooks 'window-setup-hook))
(or menubar-bindings-done
(if (eq window-system 'x)
(if (or (eq window-system 'x) (eq window-system 'win32))
(precompute-menubar-bindings)))))))
;; Precompute the keyboard equivalents in the menu bar items.
@@ -456,7 +456,7 @@ this prefix to create a unique file name.")
(if (fboundp 'frame-initialize)
(frame-initialize))
;; If frame was created with a menu bar, set menu-bar-mode on.
(if (or (not (eq window-system 'x))
(if (or (not (or (eq window-system 'x) (eq window-system 'win32)))
(> (cdr (assq 'menu-bar-lines (frame-parameters))) 0))
(menu-bar-mode t))
@@ -606,7 +606,7 @@ this prefix to create a unique file name.")
(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 (eq window-system 'x)
(if (or (eq window-system 'x) (eq window-system 'win32))
(precompute-menubar-bindings))
(setq menubar-bindings-done t)
(unwind-protect