[elpa] master 7937129 03/14: Merge pull request #107 from egarrulo/patch-1

[Leo Liu]

branch: master
commit 793712920ffebe92b81e55a47923ef1286b47082
Merge: 6153f5e abeb3ef
Author: Leo Liu <address@hidden>
Commit: Leo Liu <address@hidden>

    Merge pull request #107 from egarrulo/patch-1
    
    Copy `process-environment'
---
 ggtags.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index 52b96cf..2920dc6 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -647,7 +647,7 @@ When called with a prefix \\[universal-argument], choose 
from past projects."
                           (ggtags-ensure-localname
                            (directory-file-name 
(ggtags-current-project-root)))))
             (process-environment
-             (append (let ((process-environment process-environment))
+             (append (let ((process-environment (copy-sequence 
process-environment)))
                        (and ,gtagsroot (setenv "GTAGSROOT" ,gtagsroot))
                        (mapcar #'substitute-env-vars 
ggtags-process-environment))
                      process-environment
@@ -703,7 +703,7 @@ If file gtags.files exists in ROOT, it should be a list of 
source
 files to index, which can be used to speed gtags up in large
 source trees. See Info node `(global)gtags' for details."
   (interactive "DRoot directory: ")
-  (let ((process-environment process-environment))
+  (let ((process-environment (copy-sequence process-environment)))
     (when (zerop (length root)) (error "No root directory provided"))
     (setenv "GTAGSROOT" (ggtags-ensure-localname
                          (expand-file-name