2014-06-19 12:06 GMT+02:00 Jaap Eldering <[email protected]>:
> Thanks, works (almost) as advertised: only when the cursor is on the
> backslash of \begin or on the final '}' of \end{...}, it still modifies
> the outer environment.
>
> I've tried to fix the first problem by adding a hacky
> (or (looking-at "\\begin")
> clause, but my lack of elisp knowledge seems to let me down in getting
> that working.
For your purposes, the `save-excursion' in the "then" branch of the
`if' was more harmful than helpful, just replace it with a `progn':
--8<---------------cut here---------------start------------->8---
(defun LaTeX-star-environment-dwim ()
"Convert between the starred and the not starred version of the
current environment."
(interactive)
(let ((current-environment
;; Check whether we are on the \begin macro.
(if (or (equal (TeX-current-macro) "begin")
(looking-at "\\begin"))
;; Go to the end of the macro and get the environment name.
(progn
(skip-chars-forward "^\}")
(re-search-backward "{\\([a-zA-Z*]*\\)" nil t)
(match-string 1))
(LaTeX-current-environment))))
;; If the current environment is starred.
(if (string-match "\*$" current-environment)
;; Remove the star from the current environment.
(LaTeX-modify-environment (substring current-environment 0 -1))
;; Else add a star to the current environment.
(LaTeX-modify-environment (concat current-environment "*")))))
--8<---------------cut here---------------end--------------->8---
Bye,
Mosè
_______________________________________________
auctex mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/auctex
