Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-66

[gnu-emacs] / lisp / startup.el

diff --git a/lisp/startup.el b/lisp/startup.el
index 53539c6185ffa7e33651e3bac1444189a5f8f657..fa18b607b2daddb66c6fcfc4caf8084e4add8889 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -797,6 +797,14 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
     ;; the startup message.
     (setq inhibit-startup-message nil)
 
+    ;; Warn for invalid user name.
+    (and init-file-user
+        (not (file-directory-p (expand-file-name (concat "~" init-file-user))))
+        (display-warning 'initialization
+                         (format "User %s has no home directory"
+                                 init-file-user)
+                         :error))
+
     ;; Load that user's init file, or the default one, or none.
     (let (debug-on-error-from-init-file
          debug-on-error-should-be-set
@@ -1167,6 +1175,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)