Commit f963ea40 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 926c4c9b
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment