mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(command-line-1): Comment out unused code for coping with the old

Browse Source 
sit-for behavior.
This commit is contained in:
Chong Yidong 2007-10-12 19:00:30 +00:00
parent 3d9d55e6fd
commit 04ef26186e
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -5,7 +5,8 @@
concise startup screen, fit window to buffer.
(command-line-1): If we will be using the splash screen, use
find-file instead of find-file-other-window to find additional
files.
files. Comment out unused code for coping with the old sit-for
behavior.
2007-10-12 Stefan Monnier <monnier@iro.umontreal.ca>

12
lisp/startup.el
View File

@ -2216,12 +2216,12 @@ A fancy display is used on graphic displays, normal otherwise."
;; Don't let the hook be run twice.
(setq window-setup-hook nil))
;; Do this now to avoid an annoying delay if the user
;; clicks the menu bar during the sit-for.
(when (display-popup-menus-p)
(precompute-menubar-bindings))
(with-no-warnings
(setq menubar-bindings-done t))
;; ;; Do this now to avoid an annoying delay if the user
;; ;; clicks the menu bar during the sit-for.
;; (when (display-popup-menus-p)
;; (precompute-menubar-bindings))
;; (with-no-warnings
;; (setq menubar-bindings-done t))
;; If *scratch* exists and is empty, insert initial-scratch-message.
(and initial-scratch-message