Mercurial > emacs
changeset 47331:281edad1fc55
(fancy-splash-head, normal-splash-screen):
Change the messages that explain about GNU or GNU/Linux.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 09 Sep 2002 19:34:13 +0000 |
| parents | 022e71eb81ad |
| children | 96475604480c |
| files | lisp/startup.el |
| diffstat | 1 files changed, 8 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Mon Sep 09 19:32:41 2002 +0000 +++ b/lisp/startup.el Mon Sep 09 19:34:13 2002 +0000 @@ -1197,12 +1197,10 @@ (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 @@ ;; 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