comparison lisp/subr.el @ 144:535ec1aa78ef

*** empty log message ***

143:fa6580d92860

(defun eval-next-after-load (file)
  "Read the following input sexp, and run it whenever FILE is loaded.
This makes or adds to an entry on `after-load-alist'.
FILE should be the name of a library, with no directory name."
  (eval-after-load file (read)))

(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)))

144:535ec1aa78ef

(defun eval-next-after-load (file)
  "Read the following input sexp, and run it whenever FILE is loaded.
This makes or adds to an entry on `after-load-alist'.
FILE should be the name of a library, with no directory name."
  (eval-after-load file (read)))

(defmacro defun-inline (name args &rest body)
  "Create an \"inline defun\" (actually a macro).
Use just like `defun'."
  (nconc (list 'defmacro name '(&rest args))
	 (if (stringp (car body))
	     (prog1 (list (car body))
	       (setq body (or (cdr body) body))))
	 (list (list 'cons (list 'quote
				 (cons 'lambda (cons args body)))
		     '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)))