;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:38:09 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/env.el ;;; emacs version 19.28.90.26. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/env.el' was compiled for Emacs 19")) (byte-code "ÀÁ!„ÂÁ B‡" [boundp read-envvar-name-history nil current-load-list] 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) "À ÂÃ\f\"ÅÅÇ&‡" [completing-read prompt mapcar #[(enventry) "ÁÂÃ\"OC‡" [enventry 0 string-match "="] 5] process-environment nil mustmatch read-envvar-name-history] 7 (#$ . 563)]) (byte-code "ÀÁ!„ÂÁ B‡" [boundp setenv-history nil current-load-list] 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) "ƒÁÃÄ \"ƒÆÇ \"‡ÈÉ ÄP!PÁ\nÁ \f \fƒ]Ã\f@\"ƒTÏ \nÁ=ƒIÐ\f@\n\"\n‚Q\f Ä\nQ ˆÁ\f\fA‰\f„* †p\n…p Ä\nQ\nB‰\n,‡" [unset nil value string-match "=" variable error "Environment variable name `%s' contains `='" "\\`" regexp-quote process-environment found scan case-fold-search pattern t delq] 5 (#$ . 1095) (byte-code "ƒ\fÁÂÃ\"ÄÅE‡ÁÆÄ\"È! Ä\nÄ  \f@šƒ*Ä  ƒ6 \fB\f\f ÍÎÏ\"ĉ‰Ì%\n ƒc \f=ƒ\\\fA\f‚c\f‰AA¡ˆ\n,D‡" [current-prefix-arg read-envvar-name "Clear environment variable: " exact nil t "Set environment variable: " var getenv oldval newval oldhist setenv-history read-from-minibuffer format "Set %s to value: "] 6)]) (provide (quote env))