From 37f3cfd18232581e51131e2ab6dc91f06a91acef Mon Sep 17 00:00:00 2001 From: Francois Fleuret Date: Tue, 13 Jul 2010 12:30:45 +0200 Subject: [PATCH] Highlight only the full word, not the occurrences as a part. --- lookup-dict.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lookup-dict.el b/lookup-dict.el index 134a495..97ec375 100644 --- a/lookup-dict.el +++ b/lookup-dict.el @@ -98,10 +98,14 @@ argument \\[universal-argument] forces the third." (save-excursion (goto-char (point-min)) (while (re-search-forward "^From.*$" nil t) - (add-text-properties (match-beginning 0) (match-end 0) '(face underline))) + (add-text-properties (match-beginning 0) + (match-end 0) + '(face underline))) (goto-char (point-min)) - (while (re-search-forward word nil t) - (add-text-properties (match-beginning 0) (match-end 0) '(face bold)))) + (while (re-search-forward (concat "[^a-zA-Z]\\\(" word "\\\)[^a-zA-Z]") nil t) + (add-text-properties (match-beginning 1) + (match-end 1) + '(face bold)))) ) (setq buffer-read-only t) -- 2.20.1