[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/tex.el
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to auctex/tex.el |
Date: |
Sun, 02 Oct 2005 09:26:20 -0400 |
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] Changes to auctex/tex.el,
Ralf Angeli <=