*** empty log message ***

[gnu-emacs] / lisp / startup.el

diff --git a/lisp/startup.el b/lisp/startup.el
index 4b0ab342ef2e010f3fb39d62fd5fbc7a9b5581ce..6bcb04855e139555656409ab8bec17e19d3a57ea 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1216,6 +1216,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")
   (fancy-splash-insert
    :face '(variable-pitch :foreground "red")
    (if (eq system-type 'gnu/linux)