From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Oct 1994 18:21:25 +0000 (+0000)
Subject: (Fuser_login_name, Fuser_real_login_name):
X-Git-Tag: emacs-19.34~6334
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8a0e364daf88d3ebf5e41c2977e2219f4b2e97d;p=emacs.git

(Fuser_login_name, Fuser_real_login_name):
Call init_editfns now if it was not done before.
---

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\
 that determines the value of this function.")
   ()
 {
+  /* Set up the user name info if we didn't do it before.
+     (That can happen if Emacs is dumpable
+     but you decide to run `temacs -l loadup' and not dump.  */
+  if (INTEGERP (Vuser_name))
+    init_editfns ();
   return Vuser_name;
 }
 
@@ -500,6 +505,11 @@ This ignores the environment variables LOGNAME and USER, so it differs from\n\
 `user-login-name' when running under `su'.")
   ()
 {
+  /* Set up the user name info if we didn't do it before.
+     (That can happen if Emacs is dumpable
+     but you decide to run `temacs -l loadup' and not dump.  */
+  if (INTEGERP (Vuser_name))
+    init_editfns ();
   return Vuser_real_name;
 }