;ELC   
;;; Compiled by rms@psilocin.gnu.org on Sat Mar 21 01:19:58 1998
;;; from file /gd/gnu/emacs/lisp/env.el
;;; in Emacs version 20.2.83.3
;;; with bytecomp version 2.38
;;; with all optimizations.
;;; This file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`env.el' was compiled for Emacs 19.29 or later"))


(byte-code "ÂÀ!„ ÃÀ	BÃ‡" [read-envvar-name-history current-load-list boundp nil] 2)
#@206 Read environment variable name, prompting with PROMPT.
Optional second arg MUSTMATCH, if non-nil, means require existing envvar name.
If it is also not t, RET does not exit if it does non-null completion.
(defalias 'read-envvar-name #[(prompt &optional mustmatch) "ÃÄÅ	\"Æ\nÆÇ&‡" [prompt process-environment mustmatch completing-read mapcar #[(enventry) "ÁÂÃ\"OC‡" [enventry 0 string-match "="] 5] nil read-envvar-name-history] 7 (#$ . 609)])
(byte-code "ÂÀ!„ ÃÀ	BÃ‡" [setenv-history current-load-list boundp nil] 2)
#@450 Set the value of the environment variable named VARIABLE to VALUE.
VARIABLE should be a string.  VALUE is optional; if not provided or is
`nil', the environment variable VARIABLE will be removed.  

Interactively, a prefix argument means to unset the variable.
Interactively, the current value (if any) of the variable
appears at the front of the history list when you type in the new value.

This function works by modifying `process-environment'.
(defalias 'setenv #[(variable &optional value unset) "ƒ ÆÇÈ\n\"ƒ ÉÊ\n\"‡ËÌ\nÈP!PÆÆ\nÍ˜ƒ, Î	!ˆƒZ Ç@\"ƒS Ï	Æ=ƒJ Ð@\"‚Q \nÈ	Q ˆÆA‰„0 \f†j 	…j \nÈ	QB‰,‡" [unset value variable process-environment found scan nil string-match "=" error "Environment variable name `%s' contains `='" "\\`" regexp-quote "TZ" set-time-zone-rule t delq case-fold-search pattern] 5 (#$ . 1140) (byte-code "ƒ\f ÂÃÄ\"ÅÆE‡ÂÇÅ\"‰ÈÉÊ	\"Å‰‰ËÌ	!&)D‡" [current-prefix-arg var read-envvar-name "Clear environment variable: " exact nil t "Set environment variable: " read-from-minibuffer format "Set %s to value: " setenv-history getenv] 10)])
(provide 'env)