From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 1 Apr 1994 19:31:15 +0000 (+0000)
Subject: (occur): Add mouse-face property to each line.
X-Git-Tag: emacs-19.34~9217
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f81ed6cfac0abad90d42b57aac4ba818fb8a1f60;p=emacs.git

(occur): Add mouse-face property to each line.
---

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))))