diff options
| -rw-r--r-- | src/editfns.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/editfns.c b/src/editfns.c index 5131fa17438..85b0d0978aa 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -490,6 +490,11 @@ Also, if the environment variable LOGNAME or USER is set,\n\ | |||
| 490 | that determines the value of this function.") | 490 | that determines the value of this function.") |
| 491 | () | 491 | () |
| 492 | { | 492 | { |
| 493 | /* Set up the user name info if we didn't do it before. | ||
| 494 | (That can happen if Emacs is dumpable | ||
| 495 | but you decide to run `temacs -l loadup' and not dump. */ | ||
| 496 | if (INTEGERP (Vuser_name)) | ||
| 497 | init_editfns (); | ||
| 493 | return Vuser_name; | 498 | return Vuser_name; |
| 494 | } | 499 | } |
| 495 | 500 | ||
| @@ -500,6 +505,11 @@ This ignores the environment variables LOGNAME and USER, so it differs from\n\ | |||
| 500 | `user-login-name' when running under `su'.") | 505 | `user-login-name' when running under `su'.") |
| 501 | () | 506 | () |
| 502 | { | 507 | { |
| 508 | /* Set up the user name info if we didn't do it before. | ||
| 509 | (That can happen if Emacs is dumpable | ||
| 510 | but you decide to run `temacs -l loadup' and not dump. */ | ||
| 511 | if (INTEGERP (Vuser_name)) | ||
| 512 | init_editfns (); | ||
| 503 | return Vuser_real_name; | 513 | return Vuser_real_name; |
| 504 | } | 514 | } |
| 505 | 515 | ||