From: Stefan Monnier Date: Tue, 11 Apr 2006 16:37:27 +0000 (+0000) Subject: (normal-splash-screen): Fix last change so we don't wait X-Git-Tag: emacs-pretest-22.0.90~3216 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=866d0913b19ddaeec9294e5627e5453029ef2978;p=emacs.git (normal-splash-screen): Fix last change so we don't wait 2 minutes if we don't show the splash screen. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5670d863f25..13f26abcbfd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-04-11 Stefan Monnier + + * startup.el (normal-splash-screen): Fix last change so we don't wait + 2 minutes if we don't show the splash screen. + 2006-04-11 Carsten Dominik * textmodes/org.el (org-export-plain-list-max-depth) @@ -17,14 +22,14 @@ (org-table-create-or-convert-from-region): New commands (org-table-toggle-vline-visibility): Command removed. (org-table-convert-region): Made a command. - (orgtbl-deleta-backward-char,orgtbl-delete-char): Commands - removed, replaced with the normal org- functions. + (orgtbl-deleta-backward-char,orgtbl-delete-char): Remove commands. + Replace with the normal org- functions. (org-self-insert-command): Don't trigger realign unnecessarily when blanking a field that is not full. (org-mode): `Set buffer-invisibility-spec' for links. (org-activate-links2): Hide link part and only show descriptive part of the link. - (org-insert-link): Modified for new linking system. + (org-insert-link): Modify for new linking system. (org-store-link): Store description separately, for use by `org-insert-link'. (org-table-align): Use `org-string-width'. @@ -67,8 +72,7 @@ 2006-04-10 Eli Zaretskii * international/mule-cmds.el (set-locale-environment): Fix last - change for when the locale's preferences don't specify any - encoding. + change for when the locale's preferences don't specify any encoding. 2006-04-10 Stefan Monnier diff --git a/lisp/startup.el b/lisp/startup.el index 6fdd4fa4999..907ae463462 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1534,17 +1534,15 @@ Type \\[describe-distribution] for information on getting the latest version.")) ;; Display the input that we set up in the buffer. (set-buffer-modified-p nil) (goto-char (point-min)) - (save-window-excursion - (condition-case nil - (switch-to-buffer (current-buffer)) - ;; In case we're in a dedicated or minibuffer-only window. - (error - ;; There's no point is using pop-to-buffer since creating - ;; a new frame will generate enough events that the - ;; subsequent `sit-for' will immediately return anyway. - ;; (pop-to-buffer (current-buffer)) - )) - (sit-for 120))) + (if (or (window-minibuffer-p) + (window-dedicated-p (selected-window))) + ;; There's no point is using pop-to-buffer since creating + ;; a new frame will generate enough events that the + ;; subsequent `sit-for' will immediately return anyway. + nil ;; (pop-to-buffer (current-buffer)) + (save-window-excursion + (switch-to-buffer (current-buffer)) + (sit-for 120)))) ;; Unwind ... ensure splash buffer is killed (kill-buffer "GNU Emacs"))))