aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2011-05-28 10:47:45 -0700
committerGlenn Morris2011-05-28 10:47:45 -0700
commit6a639b16edf80d8255f64e9875eebd6755f32e66 (patch)
tree3ac202f73ddfd19f12c0d5c49874f4473d2a5b40
parent57f4e35d09c683681ec78104083e1b56eb403da3 (diff)
downloademacs-6a639b16edf80d8255f64e9875eebd6755f32e66.tar.gz
emacs-6a639b16edf80d8255f64e9875eebd6755f32e66.zip
* lisp/startup.el (fancy-about-screen): Use standard mode line. (Bug#8740)
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/startup.el6
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dde6bffe7fd..3480e3a1382 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12011-05-28 Glenn Morris <rgm@gnu.org>
2
3 * startup.el (fancy-about-screen): Use standard mode line. (Bug#8740)
4
12011-05-28 Chong Yidong <cyd@stupidchicken.com> 52011-05-28 Chong Yidong <cyd@stupidchicken.com>
2 6
3 * help-fns.el (describe-function-1): If the function is a derived 7 * help-fns.el (describe-function-1): If the function is a derived
diff --git a/lisp/startup.el b/lisp/startup.el
index 14f4c7829d1..6636cf944e3 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1676,11 +1676,7 @@ splash screen in another window."
1676 (save-selected-window 1676 (save-selected-window
1677 (select-frame frame) 1677 (select-frame frame)
1678 (switch-to-buffer "*About GNU Emacs*") 1678 (switch-to-buffer "*About GNU Emacs*")
1679 (setq buffer-undo-list t 1679 (setq buffer-undo-list t)
1680 mode-line-format
1681 (concat "----"
1682 (propertize "%b" 'face 'mode-line-buffer-id)
1683 "%-"))
1684 (let ((inhibit-read-only t)) 1680 (let ((inhibit-read-only t))
1685 (erase-buffer) 1681 (erase-buffer)
1686 (if pure-space-overflow 1682 (if pure-space-overflow