diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-09-21 12:33:27 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1992-09-21 12:33:27 +0000 |
| commit | 971571b96c729544d60942ff9541c1e1aeefc521 (patch) | |
| tree | b9f699b24dd8560fdff1ab10e2f0fe4069f3ec39 /lisp/env.el | |
| parent | 35a4d1439f68f77ba05f1d3b57244ebb46c54303 (diff) | |
| download | emacs-971571b96c729544d60942ff9541c1e1aeefc521.tar.gz | |
entered into RCS
Diffstat (limited to 'lisp/env.el')
| -rw-r--r-- | lisp/env.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/env.el b/lisp/env.el index 21ebad37437..a3933f200da 100644 --- a/lisp/env.el +++ b/lisp/env.el @@ -1,11 +1,10 @@ ;;; setenv.el --- functions to manipulate environment variables. +;;; Copyright Free Software Foundation 1991 + ;; Maintainer: FSF -;; Last-Modified: 16 Mar 1992 ;; Keywords: extensions -;;; Copyright Free Software Foundation 1991 - ;;; This file is part of GNU Emacs. ;;; GNU Emacs is free software; you can redistribute it and/or modify @@ -28,9 +27,10 @@ "Set the value of the environment variable named VARIABLE to VALUE. VARIABLE and VALUE should both be strings. This function works by modifying process-environment." + (interactive "sSet environment variable: \nsSet %s to value: ") (if (string-match "=" variable) - (error "name of environment variable contains an '=' character") - (let ((pattern (concat "^" (regexp-quote (concat variable "=")))) + (error "Environment variable name contains `='") + (let ((pattern (concat "\\`" (regexp-quote (concat variable "=")))) (scan process-environment)) (while scan (cond |