;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:39:56 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/env.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (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 "\301B\302\301!\204\f\303\303\207" [current-load-list read-envvar-name-history 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) "\303\304\305 \"\306\n\306\307&\207" [prompt process-environment mustmatch completing-read mapcar #[(enventry) "\301\302\303\"OC\207" [enventry 0 string-match "="] 5] nil read-envvar-name-history] 7 (#$ . 718)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list setenv-history 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) "\203\306\307\310\n\"\203\311\312\n\"\207\313\314\n\310P!P\306 \306\n\315\230\203,\316 !\210 \203Z\307 @\"\203S\317 \306=\203J\320 @ \"\202Q \n\310 Q\240\210\306 A\211\2040\f\206j \205j\n\310 Q B\211,\207" [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 (#$ . 1304) (byte-code "\203\f\304\305\306\"\307\310E\207\304\311\307\"\312 !\211\203\n B \313\314\315 \"\307\211\211\303\n&*D\207" [current-prefix-arg var value setenv-history read-envvar-name "Clear environment variable: " exact nil t "Set environment variable: " getenv read-from-minibuffer format "Set %s to value: "] 9)]) #@242 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. (defalias 'getenv #[(variable) "\302!t\203\303\304 \203 \202\305\"\210 )\207" [variable value getenv-internal message "%s" "Not set"] 3 (#$ . 2585) (list (read-envvar-name "Get environment variable: " t))]) (provide 'env)