tex keywords and positioning

[Christopher Dimech]

I have a minor-mode with the option to (1) highlight tex keywords [] and
(2) positioning superscripts and subscripts [supinf].

With the minor mode enabled I want highlight tex keywords only and when
crucible-supinf-enable do the positioning.

Perhaps people have some ideas that would make the code
simpler than what I have done below.

(defun supinf-typeface-crucible ()
  "Font-lock setup for mathematical symbols."
  (font-lock-flush (point-min) (point-max))

  (if crucible-mode
      (font-lock-add-keywords nil tex-keywords-cruc t)
    (font-lock-remove-keywords nil tex-keywords-cruc))

  (if crucible-supinf-enable
      (font-lock-add-keywords nil supinf-font-lock-cruc t)
  (supinf-disable-cruc (point-min) (point-max)))

  (font-lock-flush (point-min) (point-max)))