diff options
| -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. |