diff options
| author | Richard M. Stallman | 2006-09-24 20:39:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-09-24 20:39:22 +0000 |
| commit | 76a1a8a64f5b581d63b981361a8698c99de5dbdc (patch) | |
| tree | 7d40761a89dbf93da718c45ffaa8ba431c144235 | |
| parent | 7408ee973aafe715e78fba063e314c2dfc73f1c0 (diff) | |
| download | emacs-76a1a8a64f5b581d63b981361a8698c99de5dbdc.tar.gz emacs-76a1a8a64f5b581d63b981361a8698c99de5dbdc.zip | |
(fancy-splash-screens, normal-splash-screen):
Call the splash buffer *About GNU Emacs*.
| -rw-r--r-- | lisp/startup.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 3db972c3d23..cd256f2ced0 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -1389,7 +1389,7 @@ mouse." | |||
| 1389 | (if (or (window-minibuffer-p) | 1389 | (if (or (window-minibuffer-p) |
| 1390 | (window-dedicated-p (selected-window))) | 1390 | (window-dedicated-p (selected-window))) |
| 1391 | (pop-to-buffer (current-buffer)) | 1391 | (pop-to-buffer (current-buffer)) |
| 1392 | (switch-to-buffer "GNU Emacs")) | 1392 | (switch-to-buffer "*About GNU Emacs*")) |
| 1393 | (setq buffer-read-only nil) | 1393 | (setq buffer-read-only nil) |
| 1394 | (erase-buffer) | 1394 | (erase-buffer) |
| 1395 | (if pure-space-overflow | 1395 | (if pure-space-overflow |
| @@ -1605,7 +1605,9 @@ Type \\[describe-distribution] for information on getting the latest version.")) | |||
| 1605 | (error (pop-to-buffer (current-buffer)))))) | 1605 | (error (pop-to-buffer (current-buffer)))))) |
| 1606 | ;; Unwind ... ensure splash buffer is killed | 1606 | ;; Unwind ... ensure splash buffer is killed |
| 1607 | (if hide-on-input | 1607 | (if hide-on-input |
| 1608 | (kill-buffer "GNU Emacs"))))) | 1608 | (kill-buffer "GNU Emacs") |
| 1609 | (switch-to-buffer "GNU Emacs") | ||
| 1610 | (rename-buffer "*About GNU Emacs*" t))))) | ||
| 1609 | 1611 | ||
| 1610 | 1612 | ||
| 1611 | (defun startup-echo-area-message () | 1613 | (defun startup-echo-area-message () |