comparison lisp/hi-lock.el @ 33974:e2a51eb8b6cc

Update from author.

33973:1eb189c313a9

(defgroup hi-lock-faces nil
  "Faces for hi-lock."
  :group 'hi-lock-interactive-text-highlighting)

(defface hi-yellow
  '((((background dark))
     (:background "yellow" :foreground "black"))
    (t (:background "yellow")))
  "Default face for hi-lock mode."
  :group 'hi-lock-faces)

(defface hi-pink

(defun hi-lock-refontify ()
  "Unfontify then refontify buffer.  Used when hi-lock patterns change."
  (interactive)
  (font-lock-unfontify-buffer)
  (cond
   (jit-lock-mode nil)
   ;; Need a better way, since this assumes too much about lazy lock.
   (lazy-lock-mode
    (let ((windows (get-buffer-window-list (current-buffer) 'nomini t)))
	(while windows
	  (lazy-lock-fontify-window (car windows))

    (font-lock-add-keywords nil hi-lock-interactive-patterns)))

(provide 'hi-lock)

;;; hi-lock.el ends here

33974:e2a51eb8b6cc

(defgroup hi-lock-faces nil
  "Faces for hi-lock."
  :group 'hi-lock-interactive-text-highlighting)

(defface hi-yellow
  '((((background dark)) (:background "yellow" :foreground "black"))
    (t (:background "yellow")))
  "Default face for hi-lock mode."
  :group 'hi-lock-faces)

(defface hi-pink

(defun hi-lock-refontify ()
  "Unfontify then refontify buffer.  Used when hi-lock patterns change."
  (interactive)
  (font-lock-unfontify-buffer)
  (cond
   (jit-lock-mode (jit-lock-refontify))
   ;; Need a better way, since this assumes too much about lazy lock.
   (lazy-lock-mode
    (let ((windows (get-buffer-window-list (current-buffer) 'nomini t)))
	(while windows
	  (lazy-lock-fontify-window (car windows))

    (font-lock-add-keywords nil hi-lock-interactive-patterns)))

(provide 'hi-lock)

;;; hi-lock.el ends here