From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 22 Jun 1994 04:07:38 +0000 (+0000)
Subject: (setenv): Do something even if process-environment is nil.
X-Git-Tag: emacs-19.34~7851
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3cda2735d45fb14dc296cc035ee531a1838b754;p=emacs.git

(setenv): Do something even if process-environment is nil.
---

diff --git a/lisp/env.el b/lisp/env.el
index cc68de9cf00..cbf6dcf2156 100644
--- a/lisp/env.el
+++ b/lisp/env.el
@@ -42,16 +42,19 @@ This function works by modifying `process-environment'."
     (let ((pattern (concat "\\`" (regexp-quote (concat variable "="))))
 	  (case-fold-search nil)
 	  (scan process-environment))
-      (while scan
-	(cond
-	 ((string-match pattern (car scan))
-          (if (eq nil value)
-              (setq process-environment (delq (car scan) process-environment))
-            (setcar scan (concat variable "=" value)))
-	  (setq scan nil))
-	 ((null (setq scan (cdr scan)))
-	  (setq process-environment
-		(cons (concat variable "=" value) process-environment))))))))
+      (if scan
+	  (while scan
+	    (cond
+	     ((string-match pattern (car scan))
+	      (if (eq nil value)
+		  (setq process-environment (delq (car scan) process-environment))
+		(setcar scan (concat variable "=" value)))
+	      (setq scan nil))
+	     ((null (setq scan (cdr scan)))
+	      (setq process-environment
+		    (cons (concat variable "=" value) process-environment)))))
+	(setq process-environment
+	      (cons (concat variable "=" value) process-environment))))))
 
 (provide 'env)