> Uwe Brauer <[email protected]> writes:
> You could try this definition: > (defun tex--prettify-symbols-compose-p (_start end _match) > (or (not (eq ?w (char-syntax (char-before end)))) > (let* ((after-char (char-after end)) > (after-syntax (char-syntax after-char))) > (not (or > ;; Don't compose \alpha@foo. > (eq after-char ?@) > ;; The \alpha in \alpha2 or \alpha-\beta may be composed but > ;; of course \alphax may not. > (and (eq after-syntax ?w) > (not (memq after-char > '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?+ ?- ?' ?\")))) > ;; Don't compose inside verbatim blocks. > (eq 2 (nth 7 (syntax-ppss)))))))) > But I'm not sure if that has wicked side-effects. I have tested it over a couple of days and enjoy it very much. I suggest to include it. Did someone else test it? Regards Uwe Brauer _______________________________________________ auctex-devel mailing list [email protected] https://lists.gnu.org/mailman/listinfo/auctex-devel
