From f81ed6cfac0abad90d42b57aac4ba818fb8a1f60 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 1 Apr 1994 19:31:15 +0000 Subject: [PATCH] (occur): Add mouse-face property to each line. --- lisp/replace.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/replace.el b/lisp/replace.el index 24e77960ccf..cdc483667fd 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -379,6 +379,13 @@ It serves as a menu to find any of the occurrences in this buffer. (if (null tag) (setq tag (format "%3d" this-linenum))) (insert tag ?:) + (put-text-property (save-excursion + (beginning-of-line) + (point)) + (save-excursion + (end-of-line) + (point)) + 'mouse-face 'highlight) (setq tag nil) (forward-line 1) (setq this-linenum (1+ this-linenum)))) -- 2.39.5