Uwe Brauer <o...@mat.ucm.es> writes:
> Thanks very much, I just tried it out, very nice, however I made a small
> (most likely old fashioned change)
Thanks Uwe. I'll share a minor variant that not only adds labels when
switching to "equation", but also cleans up labels when switching to
"equation*" or other asterisked environments. (This is best used with
the latest master, due to a recent improvement to LaTeX--strip-labels.)
--8<---------------cut here---------------start------------->8---
(defun my-after-insert-environment-hook (new-env beg end)
"Hook to run after a LaTeX environment is modified."
(when (equal new-env "equation")
(unless (save-excursion (goto-char beg)
(search-forward "\\label{" end t))
(save-excursion
(goto-char beg)
(forward-line 1)
(open-line 1)
(reftex-label)
(LaTeX-indent-line))))
(when (equal (substring new-env -1) "*")
(save-restriction
(narrow-to-region beg end)
(save-excursion
(goto-char (point-min))
(LaTeX--strip-labels)))))
--8<---------------cut here---------------end--------------->8---
I couldn't quickly think of a simple way to add something like this to
AUCTeX, accounting for possible preferences: reftex-label vs.
LaTeX-env-label, end of line vs. next line, which environments to work
work with, etc.
