Mercurial > emacs
comparison lisp/replace.el @ 42943:a05ddff4cbab
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 25 Jan 2002 05:06:27 +0000 |
| parents | a49b37e22b38 |
| children | 9550f54734dc |
comparison
equal
deleted
inserted
replaced
| 42942:048fa049ccba | 42943:a05ddff4cbab |
|---|---|
| 797 ;; store the marker of the matching text in the | 797 ;; store the marker of the matching text in the |
| 798 ;; source buffer. | 798 ;; source buffer. |
| 799 (add-text-properties | 799 (add-text-properties |
| 800 (marker-position text-beg) (- (marker-position text-end) 1) | 800 (marker-position text-beg) (- (marker-position text-end) 1) |
| 801 '(mouse-face highlight | 801 '(mouse-face highlight |
| 802 help-echo "mouse-2: go to this occurence")) | 802 help-echo "mouse-2: go to this occurrence")) |
| 803 (put-text-property (marker-position text-beg) | 803 (put-text-property (marker-position text-beg) |
| 804 (marker-position text-end) | 804 (marker-position text-end) |
| 805 'occur occur-marker) | 805 'occur occur-marker) |
| 806 (goto-char (point-max))) | 806 (goto-char (point-max))) |
| 807 (forward-line 1))) | 807 (forward-line 1))) |