diff options
| author | Eli Zaretskii | 2012-07-23 20:27:41 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2012-07-23 20:27:41 +0300 |
| commit | ec1b09b12339df0920e8901c6bd355a7afd2bc11 (patch) | |
| tree | f9915a032e8d61f19d7363fd1f1372f5c120a0c3 | |
| parent | 436bc8e0a73e02ed0840633c4d4d4922a222db24 (diff) | |
| download | emacs-ec1b09b12339df0920e8901c6bd355a7afd2bc11.tar.gz emacs-ec1b09b12339df0920e8901c6bd355a7afd2bc11.zip | |
Fix displaying the user name in error message about no home directory.
lisp/startup.el (command-line): Don't display an empty user name in
the error message about non-existent home directory, when
init-file-user was set to an empty string. See
http://lists.gnu.org/archive/html/bug-gnu-emacs/2012-07/msg00835.html
for the details and context.
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/startup.el | 4 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5dee987d401..b43706a0bef 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2012-07-23 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * startup.el (command-line): Don't display an empty user name in | ||
| 4 | the error message about non-existent home directory, when | ||
| 5 | init-file-user was set to an empty string. See | ||
| 6 | http://lists.gnu.org/archive/html/bug-gnu-emacs/2012-07/msg00835.html | ||
| 7 | for the details and context. | ||
| 8 | |||
| 1 | 2012-07-22 Vincent Belaïche <vincentb1@users.sourceforge.net> | 9 | 2012-07-22 Vincent Belaïche <vincentb1@users.sourceforge.net> |
| 2 | 10 | ||
| 3 | * ses.el (ses-cell-formula-aset): New macro. | 11 | * ses.el (ses-cell-formula-aset): New macro. |
diff --git a/lisp/startup.el b/lisp/startup.el index e861a333a76..348e653dd28 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -1001,7 +1001,9 @@ Amongst another things, it parses the command-line arguments." | |||
| 1001 | nil | 1001 | nil |
| 1002 | (display-warning 'initialization | 1002 | (display-warning 'initialization |
| 1003 | (format "User %s has no home directory" | 1003 | (format "User %s has no home directory" |
| 1004 | init-file-user) | 1004 | (if (equal init-file-user "") |
| 1005 | (user-real-login-name) | ||
| 1006 | init-file-user)) | ||
| 1005 | :error)))) | 1007 | :error)))) |
| 1006 | 1008 | ||
| 1007 | ;; Load that user's init file, or the default one, or none. | 1009 | ;; Load that user's init file, or the default one, or none. |