Re: font-lock as a single command

[Christopher Dimech <dimech@gmx.com>]

---------------------
> 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
>
>
>