;ELC ;;; compiled by jwz@thalidomide on Thu Mar 24 18:46:38 1994 ;;; from file /th/jwz/emacs19/lisp/prim/env.el ;;; emacs version 19.10 Lucid (beta9). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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.")) (fset 'setenv #[(variable &optional value) "ÀÁ\n\"«‡ÃÄ\n\"ˆªÒÅÆ\nÁP!PÇ \n  «½À  @\"«  Ç=«‹Í @\"ª‰ \nÁ Q ˆÇ‰ ªU A‰ ¬K\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 'env)