Re: font-lock as a single command

[Christopher Dimech]

---------------------
> Sent: Saturday, February 13, 2021 at 1:54 PM
> From: "Emanuel Berg via Users list for the GNU Emacs text editor" 
> <help-gnu-emacs@gnu.org>
> To: help-gnu-emacs@gnu.org
> Subject: Re: font-lock as a single command
>
> 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?

Yes the routine works.

I made a minor-mode and added a hook to enable.  But would also
like to enable it using a key-sequence, a task that I have been
unable to get working.

(add-hook 'crucible-mode-hook #'supinf-enable)

> --
> underground experts united
> http://user.it.uu.se/~embe8573
> https://dataswamp.org/~incal
>
>
>