# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 761004116 0
# Node ID 909b94d547c4b53b8f8558c6c62348e0ef641de0
# Parent  cfd1fc2b1c7b55f803c3bfc2b5f94992b82942f9
(user-original-login-name): Reduce to a defalias, since it's redundant with
user-login-name.  All callers changed to use user-login-name.

diff -r cfd1fc2b1c7b -r 909b94d547c4 lisp/subr.el
--- a/lisp/subr.el	Fri Feb 11 21:56:45 1994 +0000
+++ b/lisp/subr.el	Fri Feb 11 22:01:56 1994 +0000
@@ -614,10 +614,7 @@
   (while t
     (signal 'error (list (apply 'format args)))))
 
-(defun user-original-login-name ()
-  "Return user's login name from original login.
-This tries to remain unaffected by `su', by looking in environment variables."
-  (or (getenv "LOGNAME") (getenv "USER") (user-login-name)))
+(defalias 'user-original-login-name 'user-login-name)
 
 (defun start-process-shell-command (name buffer &rest args)
   "Start a program in a subprocess.  Return the process object for it.