Function: TeX-process-check

TeX-process-check is a byte-compiled function defined in tex.el.

Signature

(TeX-process-check NAME)

Documentation

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. If the value of TeX-kill-process-without-query is non-nil, user query is skipped and the process is aborted right away.

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/tex.el
(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.  If the value of `TeX-kill-process-without-query' is non-nil,
user query is skipped and the process is aborted right away."
  (let (process)
    (while (and (setq process (TeX-process name))
                (eq (process-status process) 'run))
      (cond
       ((or TeX-kill-process-without-query
            (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"))))))