314 |
(save-excursion |
(save-excursion |
315 |
(and (null texmathp-environments) (throw 'exit nil)) |
(and (null texmathp-environments) (throw 'exit nil)) |
316 |
(let (end-list env) |
(let (end-list env) |
317 |
(while (re-search-backward "\\\\\\(begin\\|end\\){\\([^}]+\\)}" |
(while (re-search-backward "\\\\\\(begin\\|end\\)[ \t]*{\\([^}]+\\)}" |
318 |
bound t) |
bound t) |
319 |
(setq env (buffer-substring-no-properties |
(setq env (buffer-substring-no-properties |
320 |
(match-beginning 2) (match-end 2))) |
(match-beginning 2) (match-end 2))) |