branch: externals/gtags-mode
commit e8d19c43338eac69cc1f2b7e878cceb12d4c4dae
Author: Jimmy Aguilar Mena <kratsbinov...@gmail.com>
Commit: Jimmy Aguilar Mena <kratsbinov...@gmail.com>
Add code to run extra sentinel
Run the extra sentinel when set in the parent buffer for async
processes.
Rename :buffer to :parent-buffer.
---
gtags-mode.el | 35 +++++++++++++++++++----------------
1 file changed, 19 insertions(+), 16 deletions(-)
diff --git a/gtags-mode.el b/gtags-mode.el
index e0502da9fe..3416e15088 100644
--- a/gtags-mode.el
+++ b/gtags-mode.el
@@ -97,21 +97,24 @@ The address is relative on remote hosts and includes the
remote prefix.")
(defun gtags-mode--exec-async-sentinel (process event)
"Sentinel to run when PROCESS emits EVENT.
This is the sentinel set in `gtags-mode--exec-async'."
- (let ((temp-buffer (process-buffer process))
- (parent-buffer (process-get process :buffer)))
- (if (and (eq (process-status process) 'exit) ;; if success
- (eq (process-exit-status process) 0))
- (and (buffer-name temp-buffer) ;; kill temp buffer
- (kill-buffer temp-buffer))
- (with-current-buffer temp-buffer ;; else print error
- (while (accept-process-output process))
- (message "Global async error output:\n%s" (buffer-string))))
- (when (buffer-live-p parent-buffer) ;; Always clear the cache
- (with-current-buffer parent-buffer
- (when gtags-mode--plist
- (plist-put gtags-mode--plist :cache nil))))
- ;; TODO: use `remote-command' in the future, it will be on emacs 29.1
- (message "Async %s: %s" (process-get process :command) event))) ;; Notify
+ (if (and (eq (process-status process) 'exit) ;; On success e
+ (eql (process-exit-status process) 0))
+ (let ((temp-buffer (process-buffer process))
+ (parent-buffer (process-get process :parent-buffer))
+ (extra-sentinel (process-get process :extra-sentinel)))
+ (when (buffer-name temp-buffer) ;; kill temp buffer
+ (while (accept-process-output process))
+ (kill-buffer temp-buffer))
+ (when (buffer-live-p parent-buffer) ;; work on parent buffer
+ (with-current-buffer parent-buffer
+ (when (functionp extra-sentinel) ;; run extra sentinel
+ (funcall extra-sentinel))
+ (when gtags-mode--plist ;; clear cache
+ (plist-put gtags-mode--plist :cache nil)))))
+ (with-current-buffer (process-buffer process) ;; In failure print
error
+ (while (accept-process-output process))
+ (message "Global async error output:\n%s" (buffer-string))))
+ (message "Async %s: %s" (process-get process :command) event)) ;; Notify
always
(defsubst gtags-mode--quote (args symbol)
"Pre-process ARGS and quote SYMBOL."
@@ -133,7 +136,7 @@ Returns the process object."
:file-handler t)))
(progn
;; In future not needed with `remote-commands'.
- (set-process-plist pr `(:buffer ,(current-buffer) :command ,command))
+ (set-process-plist pr `(:parent-buffer ,(current-buffer) :command
,command))
pr)
(message "Can't start async %s subprocess" cmd)
nil))
