Mercurial > emacs
changeset 73102:b371147e0e3b
(fancy-splash-screens, normal-splash-screen):
Call the splash buffer *About GNU Emacs*.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 24 Sep 2006 20:39:22 +0000 |
| parents | b584d304b053 |
| children | 76400a9b9e59 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Sun Sep 24 20:38:47 2006 +0000 +++ b/lisp/startup.el Sun Sep 24 20:39:22 2006 +0000 @@ -1389,7 +1389,7 @@ (if (or (window-minibuffer-p) (window-dedicated-p (selected-window))) (pop-to-buffer (current-buffer)) - (switch-to-buffer "GNU Emacs")) + (switch-to-buffer "*About GNU Emacs*")) (setq buffer-read-only nil) (erase-buffer) (if pure-space-overflow @@ -1605,7 +1605,9 @@ (error (pop-to-buffer (current-buffer)))))) ;; Unwind ... ensure splash buffer is killed (if hide-on-input - (kill-buffer "GNU Emacs"))))) + (kill-buffer "GNU Emacs") + (switch-to-buffer "GNU Emacs") + (rename-buffer "*About GNU Emacs*" t))))) (defun startup-echo-area-message ()