# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 717078807 0
# Node ID 4ec50a934e5433f87ec119d6f535a05032865040
# Parent  5f4300ccc93f6ae8abde333488640c7d4200bf64
entered into RCS

diff -r 5f4300ccc93f -r 4ec50a934e54 lisp/env.el
--- a/lisp/env.el	Mon Sep 21 08:28:43 1992 +0000
+++ b/lisp/env.el	Mon Sep 21 12:33:27 1992 +0000
@@ -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