branch: master
commit 74b75eb3994485f8511c209e6f3944963676a726
Author: Dmitry Gutov <dgu...@yandex.ru>
Commit: Dmitry Gutov <dgu...@yandex.ru>
company-gtags--fetch-tags: Allow exit status 1
---
company-gtags.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/company-gtags.el b/company-gtags.el
index 2a85f23..4b04661 100644
--- a/company-gtags.el
+++ b/company-gtags.el
@@ -65,7 +65,9 @@ completion."
(defun company-gtags--fetch-tags (prefix)
(with-temp-buffer
(let (tags)
- (when (= 0 (process-file company-gtags-executable nil
+ ;; For some reason Global v 6.6.3 is prone to returning exit status 1
+ ;; even on successful searches when '-T' is used.
+ (when (/= 3 (process-file company-gtags-executable nil
;; "-T" goes through all the tag files listed
in GTAGSLIBPATH
(list (current-buffer) nil) nil "-xGqT" (concat
"^" prefix)))
(goto-char (point-min))
