Function: reb-restart-font-lock

reb-restart-font-lock is a byte-compiled function defined in re-builder.el.gz.

Signature

(reb-restart-font-lock)

Documentation

Restart font-lock-mode(var)/font-lock-mode(fun) to fit current regexp format.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/re-builder.el.gz
(defun reb-restart-font-lock ()
  "Restart `font-lock-mode' to fit current regexp format."
  (message "reb-restart-font-lock re-re-syntax=%s" reb-re-syntax)
  (with-current-buffer (get-buffer reb-buffer)
    (let ((font-lock-is-on font-lock-mode))
      (font-lock-mode -1)
      (kill-local-variable 'font-lock-set-defaults)
      ;;(setq-local reb-re-syntax 'string)
      ;;(setq-local reb-re-syntax 'rx)
      (setq font-lock-defaults
            (cond
             ((memq reb-re-syntax '(read string))
              reb-string-font-lock-keywords)
             ((eq reb-re-syntax 'rx)
              '(reb-rx-font-lock-keywords
                nil))
             (t nil)))
      (when font-lock-is-on (font-lock-mode 1)))))