Re: font-lock as a single command

[Emanuel Berg]

Christopher Dimech wrote:

> (defun supinf-raise-cruc (pos)
>   "Raise and lower typeface at position POS."
>   (unless (or (memq (get-text-property pos 'face)
>                   '(font-lock-constant-face font-lock-builtin-face))
>             ;; Check for backslash quoting
>             (let ((odd nil) (pos pos))
>               (while (eq (char-before pos) ?\\)
>                 (setq pos (1- pos) odd (not odd)))
>               odd))
>     (if (eq (char-after pos) ?^)
>       `(face supr-tfc display (raise ,(car deviat-supinf)))
>       `(face infr-tfc display (raise ,(cadr deviat-supinf))) )))

Take it one function at a time. Does this work?
-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal