Mercurial > emacs

changeset 88868:0fafee1d7770

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fancy-splash-head): Warn about status. (fancy-splash-tail): Copyright up-date.
author Dave Love <fx@gnu.org>
date Thu, 18 Jul 2002 11:09:22 +0000
parents 438e610d8d06
children b26b42483aeb
files lisp/startup.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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