diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-09-09 19:34:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-09-09 19:34:13 +0000 |
| commit | 9d5cf87c08343635aeff43fd93c65c7e11426312 (patch) | |
| tree | 92428e3a121e35ce137a02c7675bb4492b460b57 /lisp/startup.el | |
| parent | b921b596bc291fbb449c010c46df88eb05f436c4 (diff) | |
| download | emacs-9d5cf87c08343635aeff43fd93c65c7e11426312.tar.gz | |
(fancy-splash-head, normal-splash-screen):
Change the messages that explain about GNU or GNU/Linux.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 17 |
1 files 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 |