[elpa] master 74b75eb 31/40: company-gtags--fetch-tags: Allow exit status 1

[Dmitry Gutov]

branch: master
commit 74b75eb3994485f8511c209e6f3944963676a726
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

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