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
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
