;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 22:58:31 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/env.el ;;; emacs version 19.15.16. ;;; 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 "This file was compiled for Emacs 19")) (defalias 'setenv #[(variable &optional value) "ÀÁ\n\"ƒ ÃÄ\n\"‡ÅÆ\nÁP!PÇ \n  …dÀ  @\"ƒN Ç=ƒ>Í @\"‚G \nÁ Q ˆÇ‰ ‚ A‰ „\nÁ QB‚+‡" [string-match "=" variable error "Environment variable name `%s' contains `='" "\\`" regexp-quote nil process-environment scan case-fold-search pattern value 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. This function works by modifying `process-environment'." "sSet environment variable: \nsSet %s to value: "]) (provide (quote env))