Mercurial > emacs
changeset 6635:85dc25d7ea6c
(occur): Add mouse-face property to each line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 01 Apr 1994 19:31:15 +0000 |
| parents | dc75f33163fb |
| children | 4cdde975154f |
| files | lisp/replace.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/replace.el Fri Apr 01 18:51:39 1994 +0000 +++ b/lisp/replace.el Fri Apr 01 19:31:15 1994 +0000 @@ -379,6 +379,13 @@ (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))))