(fancy-splash-head): Change message below the

logo.

(fancy-splash-head): Change message below the
logo.
b831c087 · Gerd Moellmann · 9402dba5 · b831c087
Commit b831c087 authored Oct 02, 2000 by Gerd Moellmann
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 2 deletions

lisp/startup.el lisp/startup.el +5 -2

No files found.
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -952,10 +952,13 @@ where FACE is a valid face specification, as it can be used with
 	  (insert-image img (propertize "xxx" 'help-echo help-echo
 					'keymap map)))
 	(insert "\n"))))
-  (when (eq system-type 'gnu/linux)
+  (if (eq system-type 'gnu/linux)
+      (fancy-splash-insert
+       :face '(variable-pitch :foreground "red")
+       "GNU Emacs is one component of a Linux-based GNU system.")
    (fancy-splash-insert
     :face '(variable-pitch :foreground "red")
-     "GNU Emacs is one component of a Linux-based GNU system."))
+     "GNU Emacs is one component of the GNU operating system."))
  (insert "\n"))