Function: preview-dvips-abort

preview-dvips-abort is a byte-compiled function defined in preview.el.

Signature

(preview-dvips-abort)

Documentation

Abort a Dvips run.

Aliases

preview-dvipng-abort (obsolete since 14.2.0) preview-dvi*-abort

Source Code

;; Defined in ~/.emacs.d/elpa/auctex-14.1.2/preview.el
(defun preview-dvips-abort ()
  "Abort a Dvips run."
  (preview-gs-queue-empty)
  (condition-case nil
      (delete-file
       (let ((gsfile preview-gs-file))
         (with-current-buffer TeX-command-buffer
           (funcall (car gsfile) "dvi" t))))
    (file-error nil))
  (when preview-ps-file
    (condition-case nil
        (preview-delete-file preview-ps-file)
      (file-error nil)))
  (setq TeX-sentinel-function nil)

  ;; When a command is aborted, there is a chance that this happens
  ;; before the previews are generated but after a temp directory is
  ;; created, in this case an empty folder is left behind.  Make sure
  ;; here that's not the case.
  (when TeX-active-tempdir
    (unless (>= (nth 2 TeX-active-tempdir) 1)
      (delete-directory (nth 0 TeX-active-tempdir)))))