[AUCTeX-diffs] Changes to auctex/tex-buf.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    09/10/18 15:50:33

Index: tex-buf.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex-buf.el,v
retrieving revision 1.279
retrieving revision 1.280
diff -u -b -r1.279 -r1.280
--- tex-buf.el  13 Sep 2009 15:57:47 -0000      1.279
+++ tex-buf.el  18 Oct 2009 15:50:33 -0000      1.280
@@ -685,7 +685,8 @@
        (redraw-display))))
 
 (defun TeX-run-discard (name command file)
-  "Start process with second argument, discarding its output."
+  "Start COMMAND as process, discarding its output.
+NAME and FILE are ignored."
   (let ((default-directory (TeX-master-directory)))
     (call-process TeX-shell
                  nil 0 nil
@@ -775,6 +776,14 @@
   (let ((fun (car (read-from-string command))))
     (if (functionp fun) (funcall fun) (eval fun))))
 
+(defun TeX-run-discard-or-function (name command file)
+  "Start COMMAND as process or execute it as a Lisp function.
+If run as a process, the output is discarded.  COMMAND is
+expected to be a string.  NAME and FILE are ignored."
+  (if (functionp (car (read-from-string command)))
+      (TeX-run-function name command file)
+    (TeX-run-discard name command file)))
+
 (defun TeX-run-ispell-on-document (command ignored name)
   "Run ispell on all open files belonging to the current document.
 This function is *obsolete* and only here for compatibility