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

[Ralf Angeli]

Index: auctex/tex.el
diff -u auctex/tex.el:5.537 auctex/tex.el:5.538
--- auctex/tex.el:5.537 Mon Sep 19 13:05:02 2005
+++ auctex/tex.el       Sun Oct  2 13:26:20 2005
@@ -4091,7 +4091,15 @@
     (when pos (goto-char pos))
     (not (zerop (mod (skip-chars-backward (regexp-quote TeX-esc)) 2)))))
 
-
+(defun TeX-current-macro ()
+  "Return the name of the macro containing point, nil if there is none."
+  (let ((macro-start (TeX-find-macro-start)))
+    (when macro-start
+      (save-excursion
+       (goto-char macro-start)
+       (forward-char (length TeX-esc))
+       (buffer-substring-no-properties
+        (point) (progn (skip-chars-forward "@A-Za-z") (point)))))))
 
 ;;; Fonts