auctex-diffs
[Top][All Lists]
Advanced

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

main 551ffac1: Call texdoc asynchronously


From: Ikumi Keita
Subject: main 551ffac1: Call texdoc asynchronously
Date: Wed, 2 Oct 2024 02:20:50 -0400 (EDT)

branch: main
commit 551ffac1dc4669bb0c8a1879adc57de3a508af0d
Author: Yuri D. Lensky <ydl@Yuris-MacBook-Pro-2.local>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    Call texdoc asynchronously
    
    The older way of calling texdoc would hang emacs when the viewer_pdf was
    emacsclient.  Moreover, the intended way to send the error message
    assumes texdoc is called non-interactively.
    
    * tex.el: Use `make-process' to call `texdoc' with `-I' argument.  Note
    we use the connection type `pipe' in case that PDFVIEWER environment
    variable is set to "evince %s &".
    
    Copyright-paperwork-exempt: yes
---
 tex.el | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

diff --git a/tex.el b/tex.el
index b4643ee0..e2c33808 100644
--- a/tex.el
+++ b/tex.el
@@ -6626,12 +6626,20 @@ enter the number of the file to view, anything else to 
skip: ") list)))
                 (when (get-buffer-window buffer)
                   (quit-window t (get-buffer-window buffer)))))
           ;; Called without prefix argument:
-          ;; just run "texdoc --view <pkg>".
-          ;; Recent Texdoc returns exit code 3 when it can't find the
-          ;; specified document, according to
-          ;; <URL:https://tug.org/texdoc/doc/texdoc.man1.pdf>
-          (if (= (call-process "texdoc" nil nil nil "--view" pkg) 3)
-              (message "No documentation found for %s" pkg)))))))
+          ;; just run "texdoc -I --view <pkg>".
+          (make-process
+           :name "texdoc"
+           :command (list "texdoc" "-I" "--view" pkg)
+           :sentinel (lambda (proc _string)
+                       ;; Recent Texdoc returns exit code 3 when it
+                       ;; can't find the specified document:
+                       ;; <URL:https://tug.org/texdoc/doc/texdoc.man1.pdf>
+                       (when (= (process-exit-status proc) 3)
+                         (message "No documentation found for %s" pkg)))
+           ;; Use pipe rather than pty for particular situations.  See
+           ;; <URL:https://lists.gnu.org/r/auctex/2024-09/msg00012.html>
+           ;; for detail.
+           :connection-type 'pipe))))))
 
 (defun TeX-goto-info-page ()
   "Read documentation for AUCTeX in the info system."



reply via email to

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