From: Dave Love Date: Thu, 18 Jul 2002 11:09:38 +0000 (+0000) Subject: (fancy-splash-head): Warn about status. X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~556 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1de0ddd35bc035144868b7f8af705619918e6a89;p=emacs.git (fancy-splash-head): Warn about status. (fancy-splash-tail): Copyright up-date. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 417bcb5947d..22401c4c9a2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-07-18 Dave Love + + * startup.el (fancy-splash-head): Warn about status. + (fancy-splash-tail): Copyright up-date. + 2002-07-17 Kenichi Handa * international/mule-util.el (detect-coding-with-priority): Fix diff --git a/lisp/startup.el b/lisp/startup.el index b2f60380356..84430ae4f6e 100644 --- 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