# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1026990562 0
# Node ID 0fafee1d77702159a642eacc937590dba6c9be7b
# Parent  438e610d8d06e2b6d837d36a8151e308c401d129
(fancy-splash-head): Warn about status.
(fancy-splash-tail): Copyright up-date.

diff -r 438e610d8d06 -r 0fafee1d7770 lisp/startup.el
--- a/lisp/startup.el	Wed Jul 17 11:33:09 2002 +0000
+++ b/lisp/startup.el	Thu Jul 18 11:09:22 2002 +0000
@@ -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 @@
 	  (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 @@
 			 (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