# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 958402212 0
# Node ID 845292e36d623d773625476c8b28403ac30f2864
# Parent  7be05bac1805470ca8670ee990364748d7c2e564
(getenv): New function, interactively callable.
(setenv, getenv): Remove autoload cookies.

diff -r 7be05bac1805 -r 845292e36d62 lisp/env.el
--- a/lisp/env.el	Mon May 15 14:50:00 2000 +0000
+++ b/lisp/env.el	Mon May 15 14:50:12 2000 +0000
@@ -49,7 +49,6 @@
 ;; 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 @@
 		    (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