Mercurial > emacs
diff lisp/subr.el @ 5912:909b94d547c4
(user-original-login-name): Reduce to a defalias, since it's redundant with
user-login-name. All callers changed to use user-login-name.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 11 Feb 1994 22:01:56 +0000 |
| parents | 445de172c217 |
| children | bf1c9fd5669b |
line wrap: on
line diff
--- 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.