/[auctex]/auctex/tex.el
ViewVC logotype

Diff of /auctex/tex.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5.537 by angeli, Mon Sep 19 13:05:02 2005 UTC revision 5.538 by angeli, Sun Oct 2 13:26:20 2005 UTC
# Line 4091  escape characters, such as \"\\\" in LaT Line 4091  escape characters, such as \"\\\" in LaT
4091      (when pos (goto-char pos))      (when pos (goto-char pos))
4092      (not (zerop (mod (skip-chars-backward (regexp-quote TeX-esc)) 2)))))      (not (zerop (mod (skip-chars-backward (regexp-quote TeX-esc)) 2)))))
4093    
4094    (defun TeX-current-macro ()
4095      "Return the name of the macro containing point, nil if there is none."
4096      (let ((macro-start (TeX-find-macro-start)))
4097        (when macro-start
4098          (save-excursion
4099            (goto-char macro-start)
4100            (forward-char (length TeX-esc))
4101            (buffer-substring-no-properties
4102             (point) (progn (skip-chars-forward "@A-Za-z") (point)))))))
4103    
4104  ;;; Fonts  ;;; Fonts
4105    

Legend:
Removed from v.5.537  
changed lines
  Added in v.5.538

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26