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 |
|
|