[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/tex-buf.el,v
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to auctex/tex-buf.el,v |
Date: |
Sun, 18 Oct 2009 15:50:34 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [AUCTeX-diffs] Changes to auctex/tex-buf.el,v,
Ralf Angeli <=