Mercurial > emacs
diff lisp/startup.el @ 90197:b7da78284d4c
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-65
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 425-445)
- Remove "-face" suffix from gnus faces
- Update from CVS
- Remove "-face" suffix from MH-E faces
- Remove "-face" suffix from cc-mode faces
- Remove "-face" suffix from eshell faces
- Remove "-face" suffix from ediff faces
- Implement tty vertical-divider face
- Rename vertical-divider face to vertical-border
- Change escape-glyph color on dark backgrounds back to cyan
- Update reference to renamed Buffer-menu-buffer face
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 24 Jun 2005 01:59:52 +0000 |
| parents | 5b029ff3b08d 977d18df13bb |
| children | bb71c6cf2009 |
line wrap: on
line diff
--- a/lisp/startup.el Wed Jun 15 23:37:29 2005 +0000 +++ b/lisp/startup.el Fri Jun 24 01:59:52 2005 +0000 @@ -797,6 +797,14 @@ ;; 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