mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Juanma Barranquero 2009-02-11 09:22:59 +00:00
parent adab88bd5a
commit abab01f2e8
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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.

6
lisp/server.el
View File

@ -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))))