From 9d5cf87c08343635aeff43fd93c65c7e11426312 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 9 Sep 2002 19:34:13 +0000 Subject: [PATCH] (fancy-splash-head, normal-splash-screen): Change the messages that explain about GNU or GNU/Linux. --- lisp/startup.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index bff7e09e4fe..456eae5788c 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1197,12 +1197,10 @@ 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")))) - (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") + (fancy-splash-insert + :face '(variable-pitch :foreground "red") + (if (eq system-type 'gnu/linux) + "GNU Emacs is one component of the GNU/Linux operating system." "GNU Emacs is one component of the GNU operating system.")) (insert "\n") (unless (equal (buffer-name fancy-splash-outer-buffer) "*scratch*") @@ -1346,9 +1344,10 @@ we put it on this frame." ;; each piece of output starts with one or two newlines ;; and does not end with any newlines. (insert "Welcome to GNU Emacs") - (if (eq system-type 'gnu/linux) - (insert ", one component of a Linux-based GNU system.")) - (insert "\n") + (insert + (if (eq system-type 'gnu/linux) + ", one component of the GNU/Linux operating system.\n" + ", a part of the GNU operating system.\n")) (unless (equal (buffer-name prev-buffer) "*scratch*") (insert (substitute-command-keys -- 2.39.5