aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2006-09-24 20:39:22 +0000
committerRichard M. Stallman2006-09-24 20:39:22 +0000
commit76a1a8a64f5b581d63b981361a8698c99de5dbdc (patch)
tree7d40761a89dbf93da718c45ffaa8ba431c144235
parent7408ee973aafe715e78fba063e314c2dfc73f1c0 (diff)
downloademacs-76a1a8a64f5b581d63b981361a8698c99de5dbdc.tar.gz
emacs-76a1a8a64f5b581d63b981361a8698c99de5dbdc.zip
(fancy-splash-screens, normal-splash-screen):
Call the splash buffer *About GNU Emacs*.
-rw-r--r--lisp/startup.el6
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 ()