diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-02-11 22:01:56 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-02-11 22:01:56 +0000 |
| commit | 521ae74dc2e013d97165f8466680e9662ac0519b (patch) | |
| tree | dbc2b51a798645e60c139666527ef9b2810b2803 | |
| parent | 6b46a38032de76c6324d0025e237837c14011826 (diff) | |
| download | emacs-521ae74dc2e013d97165f8466680e9662ac0519b.tar.gz | |
(user-original-login-name): Reduce to a defalias, since it's redundant with
user-login-name. All callers changed to use user-login-name.
| -rw-r--r-- | lisp/subr.el | 5 |
1 files changed, 1 insertions, 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. |