branch: master
commit abeb3ef5e8f7262d9459a0e67d61851909a325d9
Author: egarrulo <egarr...@gmail.com>
Commit: egarrulo <egarr...@gmail.com>
`process-environment` must be copied
`process-environment` must be copied to have a temporary binding, otherwise
you will be modifying the original list. Or maybe `lexical-binding` changes
this?
---
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
