emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ggtags 4e3630c30f 2/2: Minor cleanup for ggtags-global-


From: ELPA Syncer
Subject: [elpa] externals/ggtags 4e3630c30f 2/2: Minor cleanup for ggtags-global-output
Date: Thu, 1 Jun 2023 21:58:25 -0400 (EDT)

branch: externals/ggtags
commit 4e3630c30fb836872b5d8f2ae3e5d5ae003365d8
Author: Leo Liu <sdl.web@gmail.com>
Commit: Leo Liu <sdl.web@gmail.com>

    Minor cleanup for ggtags-global-output
    
    Based on discussion in PR #224.
---
 ggtags.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/ggtags.el b/ggtags.el
index 792184de7d..25b0bb4d98 100644
--- a/ggtags.el
+++ b/ggtags.el
@@ -1992,7 +1992,6 @@ When finished invoke CALLBACK in BUFFER with process exit 
status."
                                            (with-current-buffer buffer
                                              (line-number-at-pos (point-max)))
                                          0))))
-         (proc (apply #'start-file-process program buffer program args))
          (filter (lambda (proc string)
                    (and (buffer-live-p (process-buffer proc))
                         (with-current-buffer (process-buffer proc)
@@ -2008,14 +2007,13 @@ When finished invoke CALLBACK in BUFFER with process 
exit status."
                      (when (memq (process-status proc) '(exit signal))
                        (with-current-buffer (process-buffer proc)
                          (set-process-buffer proc nil)
-                         (unwind-protect
-                             (funcall callback (process-exit-status proc))
-                           (process-put proc :callback-done t)))))))
+                         (funcall callback (process-exit-status proc))))))
+         (proc (apply #'start-file-process program buffer program args)))
+    (set-process-sentinel proc sentinel)
     (set-process-query-on-exit-flag proc nil)
     (and cutoff (set-process-filter proc filter))
-    (set-process-sentinel proc sentinel)
-    (process-put proc :callback-done nil)
-    (process-put proc :nlines 0)))
+    (process-put proc :nlines 0)
+    proc))
 
 (defun ggtags-global-output-sync (buffer cmds callback)
   "Synchronously run CMDS and show output in BUFFER.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]