diff options
| author | Richard M. Stallman | 2005-06-17 15:34:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-06-17 15:34:39 +0000 |
| commit | f963ea40efabcb628811af1eb0e16c52f32b8cd4 (patch) | |
| tree | 2d89b2b770518613b2285ebf0910475b1d5644a1 | |
| parent | 926c4c9b05c7cba2153193e73126985b1b2223c3 (diff) | |
| download | emacs-f963ea40efabcb628811af1eb0e16c52f32b8cd4.tar.gz emacs-f963ea40efabcb628811af1eb0e16c52f32b8cd4.zip | |
(command-line): Warn if specified user name has no home directory.
| -rw-r--r-- | lisp/startup.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 53539c6185f..6af6e748ee5 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -797,6 +797,14 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." | |||
| 797 | ;; the startup message. | 797 | ;; the startup message. |
| 798 | (setq inhibit-startup-message nil) | 798 | (setq inhibit-startup-message nil) |
| 799 | 799 | ||
| 800 | ;; Warn for invalid user name. | ||
| 801 | (and init-file-user | ||
| 802 | (not (file-directory-p (expand-file-name (concat "~" init-file-user)))) | ||
| 803 | (display-warning 'initialization | ||
| 804 | (format "User %s has no home directory" | ||
| 805 | init-file-user) | ||
| 806 | :error)) | ||
| 807 | |||
| 800 | ;; Load that user's init file, or the default one, or none. | 808 | ;; Load that user's init file, or the default one, or none. |
| 801 | (let (debug-on-error-from-init-file | 809 | (let (debug-on-error-from-init-file |
| 802 | debug-on-error-should-be-set | 810 | debug-on-error-should-be-set |