branch: externals/gtags-mode
commit 442f819924cc6921bfe2dbd291073766020b9719
Author: Jimmy Aguilar Mena <kratsbinov...@gmail.com>
Commit: Jimmy Aguilar Mena <kratsbinov...@gmail.com>
General fixes.
---
global-xref.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/global-xref.el b/global-xref.el
index 30b2d46918..109c162f13 100644
--- a/global-xref.el
+++ b/global-xref.el
@@ -60,6 +60,7 @@
(nreverse lines)))
(defvar global-xref--roots-list nil)
+(put 'global-xref--roots-list 'risky-local-variable t)
(defvar-local global-xref--global (executable-find global-xref-global))
(defvar-local global-xref--gtags (executable-find global-xref-gtags))
@@ -86,13 +87,13 @@ the cases"
(lambda (process event)
(if-let* (((eq (process-status process) 'exit))
(temp-buffer (process-buffer process)))
- (with-current-buffer temp-buffer
- (while (accept-process-output process))
- (when (functionp postfunction)
- (unwind-protect
- (funcall postfunction)
- (and (buffer-name temp-buffer)
- (kill-buffer temp-buffer)))))
+ (with-current-buffer temp-buffer
+ (while (accept-process-output process))
+ (when (functionp postfunction)
+ (unwind-protect
+ (funcall postfunction)
+ (and (buffer-name temp-buffer)
+ (kill-buffer temp-buffer)))))
(let ((inhibit-message t))
(message "global error output:\n%s" (buffer-string))))
(message "Async %s: %s" (process-command process) event)))
@@ -104,7 +105,7 @@ the cases"
(if (functionp postfunction)
(funcall postfunction)
(string-trim (buffer-substring-no-properties (point-min)
(point-max))))
- (error "Sync %s: exited abnormally with code %s" cmd status)
+ (error "Sync %s %s: exited abnormally with code %s" cmd args
status)
(let ((inhibit-message t))
(message "global error output:\n%s" (buffer-string)))
nil)))))))
