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

(getenv): New function, interactively callable.

Browse Source 
(setenv, getenv): Remove autoload cookies.
This commit is contained in:
Gerd Moellmann 2000-05-15 14:50:12 +00:00
parent b27f23c1db
commit b1e11b4f9f
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/env.el
View File

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