|
From: | Jean Louis |
Subject: | New function: rcd-highlight-list |
Date: | Tue, 18 May 2021 20:08:29 +0300 |
(defun rcd-highlight-list (list) "Uses LIST to highlight strings in buffer." (hi-lock-mode) (let* ((list (delete "" list)) (highlights hi-lock-face-defaults)) (while list (highlight-regexp (pop list) (pop highlights))))) Just feed to this function a list of strings to highlight: (rcd-highlight-list '("just" "to" "function" "list" "strings" "highlight")) or use some highlighted tags in every text mode: (rcd-highlight-list '("TODO" "DONE" "DELEGATED")) or add it to some mode: (add-hook 'mail-mode-hook (lambda () (rcd-highlight-list '("TODO" "DONE" "DELEGATED" "To:" "Subject:"))))
[Prev in Thread] | Current Thread | [Next in Thread] |