entered into RCS

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