From cef7ae6e1aca2ffa9c163ece8c4668b5b91ef416 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 11 Feb 1994 22:01:56 +0000 Subject: [PATCH] (user-original-login-name): Reduce to a defalias, since it's redundant with user-login-name. All callers changed to use user-login-name. --- lisp/subr.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 2817d9237de..4a50dca95f3 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -614,10 +614,7 @@ Accept any number of arguments, but ignore them." (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. -- 2.39.5