Mercurial > emacs
comparison lisp/startup.el @ 63565:977d18df13bb
(command-line): Warn if specified user name has no home directory.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 17 Jun 2005 15:34:39 +0000 |
| parents | 84252cd99187 |
| children | 250dde129264 c016d82bf02b b7da78284d4c |
comparison
equal
deleted
inserted
replaced
| 63564:41cc36f54415 | 63565:977d18df13bb |
|---|---|
| 795 | 795 |
| 796 ;; Sites should not disable this. Only individuals should disable | 796 ;; Sites should not disable this. Only individuals should disable |
| 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 |
| 803 (debug-on-error-initial | 811 (debug-on-error-initial |
| 804 (if (eq init-file-debug t) 'startup init-file-debug)) | 812 (if (eq init-file-debug t) 'startup init-file-debug)) |