[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/startup.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/startup.el |
Date: |
Fri, 17 Jun 2005 11:34:39 -0400 |
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
- [Emacs-diffs] Changes to emacs/lisp/startup.el,
Richard M . Stallman <=