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

[Ralf Angeli]

Index: auctex/tex-buf.el
diff -u auctex/tex-buf.el:1.244 auctex/tex-buf.el:1.245
--- auctex/tex-buf.el:1.244     Sat Jan 28 12:50:53 2006
+++ auctex/tex-buf.el   Tue Feb  7 10:04:21 2006
@@ -757,6 +757,13 @@
     ;; use the sentinel-function that the major mode sets, not the LaTeX one
     (setq TeX-sentinel-function sentinel-function)))
 
+(defun TeX-run-function (name command file)
+  "Execute Lisp function or function call given as the string COMMAND.
+Parameters NAME and FILE are ignored."
+  (let ((fun (car (read-from-string command))))
+    (if (functionp fun) (funcall fun) (eval fun))))
+
+
 ;;; Command Sentinels
 
 (defun TeX-synchronous-sentinel (name file result)