branch: master
commit 793712920ffebe92b81e55a47923ef1286b47082
Merge: 6153f5e abeb3ef
Author: Leo Liu <sdl....@gmail.com>
Commit: Leo Liu <sdl....@gmail.com>
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
