diff options
| author | Karl Heuer | 1994-02-11 22:01:56 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-02-11 22:01:56 +0000 |
| commit | cef7ae6e1aca2ffa9c163ece8c4668b5b91ef416 (patch) | |
| tree | b7cb221d689c4e49cb454bb2ade0e7a9bedd58a7 | |
| parent | 66b89353c09cb86530ebb5f937d91d05f1f4aa63 (diff) | |
| download | emacs-cef7ae6e1aca2ffa9c163ece8c4668b5b91ef416.tar.gz emacs-cef7ae6e1aca2ffa9c163ece8c4668b5b91ef416.zip | |
(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." | |||
| 614 | (while t | 614 | (while t |
| 615 | (signal 'error (list (apply 'format args))))) | 615 | (signal 'error (list (apply 'format args))))) |
| 616 | 616 | ||
| 617 | (defun user-original-login-name () | 617 | (defalias 'user-original-login-name 'user-login-name) |
| 618 | "Return user's login name from original login. | ||
| 619 | This tries to remain unaffected by `su', by looking in environment variables." | ||
| 620 | (or (getenv "LOGNAME") (getenv "USER") (user-login-name))) | ||
| 621 | 618 | ||
| 622 | (defun start-process-shell-command (name buffer &rest args) | 619 | (defun start-process-shell-command (name buffer &rest args) |
| 623 | "Start a program in a subprocess. Return the process object for it. | 620 | "Start a program in a subprocess. Return the process object for it. |