* server.el (server-with-environment): Don't fail for negative entries in ENV.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b18c04ece8718af4d00da382bcf2b41447ebb953..a650253f1625715f4914d1cd9b625623cba53960 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,9 @@
-2009-02-10  Dan Nicolaescu  <dann@ics.uci.edu>
+2009-02-11  Juanma Barranquero  <lekktu@gmail.com>
+
+       * server.el (server-with-environment):
+       Don't fail for negative entries in ENV.
+
+2009-02-11  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-dir.el (vc-dir-filename-mouse-map): Rename from vc-dir-mouse-map.
        (vc-default-dir-printer): Add a comment about updating this function.

diff --git a/lisp/server.el b/lisp/server.el
index f42be5821c055e1822f4f9e7942dcd41db585249..cd9c5fa4ad8942df1b46fdca0176c1e05a266bb7 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -240,9 +240,9 @@ ENV should be in the same format as `process-environment'."
     `(let ((process-environment process-environment))
        (dolist (,var ,vars)
          (let ((,value (getenv-internal ,var ,env)))
-           (push (if (null ,value)
-                     ,var
-                   (concat ,var "=" ,value))
+           (push (if (stringp ,value)
+                     (concat ,var "=" ,value)
+                   ,var)
                  process-environment)))
        (progn ,@body))))