;ELC ;;; compiled by roland@geech.gnu.ai.mit.edu on Wed Jun 22 21:22:43 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/env.el ;;; emacs version 19.25.12. ;;; 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")) (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 "\ 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. This function works by modifying `process-environment'." (byte-code "ƒ ÁÂ!ÃÄE‡ÁÅ!‰ÁÇÈ\"!)D‡" [current-prefix-arg read-string "Clear environment variable: " nil t "Set environment variable: " var format "Set %s to value: "] 6)]) (provide (quote env))