global, enh: set a timeout on citre-global-dbpath

This is a workaround for #163. See also #150.
universal-ctags · Jan 14, 2024 · a900987 · a900987
1 parent 68b99c3
commit a900987
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/citre-global.el b/citre-global.el
@@ -218,8 +218,15 @@ as global program is needed to get the database path."
       (_ (let ((default-directory (or dir default-directory)))
            (condition-case nil
                (setq citre--global-dbpath
-                     (car (citre-global--get-output-lines
-                           '("--print-dbpath"))))
+                     ;; Several users have reported that global runs forever in
+                     ;; certain occasions, and it seems to have something to do
+                     ;; with org-mode, see
+                     ;; https://github.com/universal-ctags/citre/issues/163 and
+                     ;; https://github.com/universal-ctags/citre/issues/150.
+                     ;; This is a workaround.
+                     (with-timeout (1 nil)
+                       (car (citre-global--get-output-lines
+                             '("--print-dbpath")))))
              (error (setq citre--global-dbpath 'none)
                     nil)))))))