diff options
| author | Gerd Moellmann | 2000-10-02 11:18:21 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-10-02 11:18:21 +0000 |
| commit | b831c087d8b6265447d6ca75a8ac565b25edac0e (patch) | |
| tree | 06d18374aa6a409ea1adc0b590e5df6840cb97d8 | |
| parent | 9402dba525604fc9232c424be202cbb7aae2c028 (diff) | |
| download | emacs-b831c087d8b6265447d6ca75a8ac565b25edac0e.tar.gz emacs-b831c087d8b6265447d6ca75a8ac565b25edac0e.zip | |
(fancy-splash-head): Change message below the
logo.
| -rw-r--r-- | lisp/startup.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 43e8bb7d20d..ac29ad87a9e 100644 --- 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 | |||
| 952 | (insert-image img (propertize "xxx" 'help-echo help-echo | 952 | (insert-image img (propertize "xxx" 'help-echo help-echo |
| 953 | 'keymap map))) | 953 | 'keymap map))) |
| 954 | (insert "\n")))) | 954 | (insert "\n")))) |
| 955 | (when (eq system-type 'gnu/linux) | 955 | (if (eq system-type 'gnu/linux) |
| 956 | (fancy-splash-insert | ||
| 957 | :face '(variable-pitch :foreground "red") | ||
| 958 | "GNU Emacs is one component of a Linux-based GNU system.") | ||
| 956 | (fancy-splash-insert | 959 | (fancy-splash-insert |
| 957 | :face '(variable-pitch :foreground "red") | 960 | :face '(variable-pitch :foreground "red") |
| 958 | "GNU Emacs is one component of a Linux-based GNU system.")) | 961 | "GNU Emacs is one component of the GNU operating system.")) |
| 959 | (insert "\n")) | 962 | (insert "\n")) |
| 960 | 963 | ||
| 961 | 964 | ||