[Emacs-diffs] Changes to emacs/lisp/startup.el

[Richard M . Stallman]

Index: emacs/lisp/startup.el
diff -c emacs/lisp/startup.el:1.358 emacs/lisp/startup.el:1.359
*** emacs/lisp/startup.el:1.358 Wed May 25 14:18:44 2005
--- emacs/lisp/startup.el       Fri Jun 17 15:34:39 2005
***************
*** 797,802 ****
--- 797,810 ----
      ;; 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