diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/env.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/env.el b/lisp/env.el index 02e4e04b625..4981fe68b4e 100644 --- a/lisp/env.el +++ b/lisp/env.el @@ -49,7 +49,6 @@ If it is also not t, RET does not exit if it does non-null completion." ;; History list for VALUE argument to setenv. (defvar setenv-history nil) -;;;###autoload (defun setenv (variable &optional value unset) "Set the value of the environment variable named VARIABLE to VALUE. VARIABLE should be a string. VALUE is optional; if not provided or is @@ -91,6 +90,19 @@ This function works by modifying `process-environment'." (cons (concat variable "=" value) process-environment))))))) +(defun getenv (variable) + "Get the value of environment variable VARIABLE. +VARIABLE should be a string. Value is nil if VARIABLE is undefined in +the environment. Otherwise, value is a string. + +This function consults the variable `process-environment' +for its value." + (interactive (list (read-envvar-name "Get environment variable: " t))) + (let ((value (getenv-internal variable))) + (when (interactive-p) + (message "%s" (if value value "Not set"))) + value)) + (provide 'env) ;;; env.el ends here |