LaTeX PDF and Acrobat

[Dr. F.C.Caner]

Hello all,

Here is the final version of Lisp code which 
(1) closes all the documents in the Acrobat window
(2) runs LaTeX Pdf
(3) opens the newly produced pdf file in the Acrobat window right
after LaTeX Pdf is done with compiling.

It is a very useful feature for those who use LaTeX Pdf on a Windows
system. It must be inserted into tex-site.el. Finally, TeX-run-LaTeX
that runs LaTeX Pdf in the TeX-command-list must be changed into
TeX-run-pdfLaTeX as shown below in the same file.

(defvar TeX-command-list
  (list
     ...
   (list "LaTeX PDF" "pdflatex '\\nonstopmode\\input{%t}'"
         'TeX-run-pdfLaTeX nil t)
     ...))


Best,
FCC.

;;; This function is by von Jesper Harder:
(defun acrobat-close-all-docs ()
  "Close all open documents in Acrobat."
  (save-excursion
    (set-buffer (get-buffer-create " *ddeclient*"))
    (erase-buffer)
    (insert "[CloseAllDocs()]")
    (call-process-region (point-min) (point-max)
       "c:/EmacsPlugins/ddeclient/ddeclient" t t nil "acroview"
"control")
    (if (= 0 (string-to-int (buffer-string))) t nil)))

(defun acrobat-open-doc (process event)
  "Open file in Acrobat."
  (save-excursion
    (set-buffer (get-buffer-create " *ddeclient*"))
    (erase-buffer)
    (insert (concat "[FileOpenEx(\"" file1 ".pdf\")]"))
    (call-process-region (point-min) (point-max)
       "c:/EmacsPlugins/ddeclient/ddeclient" t t nil "acroview"
"control")
    (if (= 0 (string-to-int (buffer-string))) t nil)
    )
  )

(defvar file1 "")

(defun TeX-run-pdfLaTeX (name command file)
  "Create a process for NAME using COMMAND to format FILE with
pdfLaTeX."
  (setq file1 file)
  (acrobat-close-all-docs)
  (TeX-run-LaTeX name command file)
  (set-process-sentinel (get-process "LaTeX PDF") 'acrobat-open-doc)
)