(fancy-splash-head): Warn about status.

(fancy-splash-tail): Copyright up-date.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 417bcb5947d72f980259c8cff971e235f4f5e4cf..22401c4c9a2a864f506cb511498d8ad9ce0c3610 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-07-18  Dave Love  <fx@gnu.org>
+
+       * startup.el (fancy-splash-head): Warn about status.
+       (fancy-splash-tail): Copyright up-date.
+
 2002-07-17  Kenichi Handa  <handa@etl.go.jp>
 
        * international/mule-util.el (detect-coding-with-priority): Fix

diff --git a/lisp/startup.el b/lisp/startup.el
index b2f6038035621c0d24aea407f60e5dc6a14423c5..84430ae4f6e93f8df92b0474f7cc47818c7a136c 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1,6 +1,6 @@
 ;;; startup.el --- process Emacs shell arguments
 
-;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 2001
+;; Copyright (C) 1985, 86, 92, 94, 95, 96, 97, 98, 99, 2000, 01, 02
 ;;   Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
@@ -1168,6 +1168,9 @@ 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"))))
+  (fancy-splash-insert
+   :face '(variable-pitch :background "red")
+   "\n!! This version is ALPHA status.  It may lose your data!!\n\n")
   (if (eq system-type 'gnu/linux)
       (fancy-splash-insert
        :face '(variable-pitch :foreground "red")
@@ -1191,7 +1194,7 @@ where FACE is a valid face specification, as it can be used with
                         (emacs-version)
                         "\n"
                         :face '(variable-pitch :height 0.5)
-                        "Copyright (C) 2001 Free Software Foundation, Inc.")
+                        "Copyright (C) 2002 Free Software Foundation, Inc.")
     (and auto-save-list-file-prefix
         ;; Don't signal an error if the
         ;; directory for auto-save-list files