From 757210d152e88303dbf5786efe81add0c2691b81 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 9 May 2006 23:08:49 +0000 Subject: [PATCH] (fancy-splash-screens, normal-splash-screen): Use face `mode-line-buffer-id' for mode-line buffer face instead of hard-coded `(:weight bold)'. --- lisp/startup.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 396da18cb41..3e2bff1088e 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1366,7 +1366,7 @@ mouse." emulation-mode-map-alists nil buffer-undo-list t mode-line-format (propertize "---- %b %-" - 'face '(:weight bold)) + 'face 'mode-line-buffer-id) fancy-splash-stop-time (+ (float-time) fancy-splash-max-time) timer (run-with-timer 0 fancy-splash-delay @@ -1415,7 +1415,7 @@ we put it on this frame." (with-current-buffer (get-buffer-create "GNU Emacs") (set (make-local-variable 'tab-width) 8) (set (make-local-variable 'mode-line-format) - (propertize "---- %b %-" 'face '(:weight bold))) + (propertize "---- %b %-" 'face 'mode-line-buffer-id)) (if pure-space-overflow (insert "\ -- 2.39.5