mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(command-line): Warn if specified user name has no home directory.

Browse source
This commit is contained in:
Richard M. Stallman 2005-06-17 15:34:39 +00:00
parent 926c4c9b05
commit f963ea40ef
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/startup.el
View file

@ -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