[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r99541: * startup.el (fancy-about-scr
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r99541: * startup.el (fancy-about-screen): In mode-line, apply |
Date: |
Sun, 21 Feb 2010 08:11:07 -0500 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 99541
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2010-02-21 08:11:07 -0500
message:
* startup.el (fancy-about-screen): In mode-line, apply
mode-line-buffer-id face only to the buffer name (Bug#5613).
modified:
lisp/ChangeLog
lisp/startup.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-02-20 13:53:06 +0000
+++ b/lisp/ChangeLog 2010-02-21 13:11:07 +0000
@@ -1,3 +1,8 @@
+2010-02-21 Chong Yidong <address@hidden>
+
+ * startup.el (fancy-about-screen): In mode-line, apply
+ mode-line-buffer-id face only to the buffer name (Bug#5613).
+
2010-02-20 Kevin Ryde <address@hidden>
* progmodes/compile.el (compilation-error-regexp-alist-alist): In
=== modified file 'lisp/startup.el'
--- a/lisp/startup.el 2010-02-05 04:49:36 +0000
+++ b/lisp/startup.el 2010-02-21 13:11:07 +0000
@@ -1626,8 +1626,10 @@
(select-frame frame)
(switch-to-buffer "*About GNU Emacs*")
(setq buffer-undo-list t
- mode-line-format (propertize "---- %b %-"
- 'face 'mode-line-buffer-id))
+ mode-line-format
+ (concat "----"
+ (propertize "%b" 'face 'mode-line-buffer-id)
+ "%-"))
(let ((inhibit-read-only t))
(erase-buffer)
(if pure-space-overflow
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r99541: * startup.el (fancy-about-screen): In mode-line, apply,
Chong Yidong <=