[Emacs-diffs] Changes to emacs/lisp/startup.el

[Richard M. Stallman]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.306 emacs/lisp/startup.el:1.307
*** emacs/lisp/startup.el:1.306 Wed Sep  4 20:19:49 2002
--- emacs/lisp/startup.el       Mon Sep  9 15:34:13 2002
***************
*** 1197,1208 ****
          (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")
       "GNU Emacs is one component of the GNU operating system."))
    (insert "\n")
    (unless (equal (buffer-name fancy-splash-outer-buffer) "*scratch*")
--- 1197,1206 ----
          (insert-image img (propertize "xxx" 'help-echo help-echo
                                        'keymap map)))
        (insert "\n"))))
!   (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,1354 ****
            ;; 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")
  
            (unless (equal (buffer-name prev-buffer) "*scratch*")
              (insert (substitute-command-keys
--- 1344,1353 ----
            ;; each piece of output starts with one or two newlines
            ;; and does not end with any newlines.
            (insert "Welcome to GNU Emacs")
!           (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