mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(user-original-login-name): Reduce to a defalias, since it's redundant with

Browse Source 
user-login-name.  All callers changed to use user-login-name.
This commit is contained in:
Karl Heuer 1994-02-11 22:01:56 +00:00
parent 66b89353c0
commit cef7ae6e1a
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/subr.el
View File

@ -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.