On Tue, 12 Mar 2024 at 18:59, Arash Esbati <[email protected]> wrote: > > are you thinking about something like this: > > --8<---------------cut here---------------start------------->8--- > (defun TeX-process-check (name) > "Check if a process for the TeX document NAME already exists. > If so, give the user the choice of aborting the process or the current > command." > (let (process) > (while (and (setq process (TeX-process name)) > (eq (process-status process) 'run)) > (cond > ((or TeX-kill-process-no-query ; (t or nil) > (yes-or-no-p (concat "Process `" > (process-name process) > "' for document `" > name > "' running, kill it? "))) > (delete-process process)) > ((eq (process-status process) 'run) > (error "Cannot have two processes for the same document")))))) > --8<---------------cut here---------------end--------------->8--- >
Yes, that looks good! Thanks for looking at this old bug report. -- https://rrt.sc3d.org
_______________________________________________ bug-auctex mailing list [email protected] https://lists.gnu.org/mailman/listinfo/bug-auctex
