diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-04-01 19:31:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-04-01 19:31:15 +0000 |
| commit | 2e0f3cd0c1e21ae7a2a518327d4074fb873abdd2 (patch) | |
| tree | 95387d01bfb2aaf6704a61f7afb238567ad70e99 /lisp/replace.el | |
| parent | f5cf34d6667d21119329bca63812dde47bb07773 (diff) | |
| download | emacs-2e0f3cd0c1e21ae7a2a518327d4074fb873abdd2.tar.gz | |
(occur): Add mouse-face property to each line.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 7 |
1 files changed, 7 insertions, 0 deletions
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)))) |