Mercurial > emacs
comparison lisp/replace.el @ 66249:35d36d48eb91
(occur-engine): Add follow-link property.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Thu, 20 Oct 2005 16:53:11 +0000 |
| parents | ed770a0a7846 |
| children | abd51aa4052e 0ca0d9181b5e |
comparison
equal
deleted
inserted
replaced
| 66248:6914d742203d | 66249:35d36d48eb91 |
|---|---|
| 1155 (end (progn (insert data) (point)))) | 1155 (end (progn (insert data) (point)))) |
| 1156 (unless (= nlines 0) | 1156 (unless (= nlines 0) |
| 1157 (insert "-------\n")) | 1157 (insert "-------\n")) |
| 1158 (add-text-properties | 1158 (add-text-properties |
| 1159 beg end | 1159 beg end |
| 1160 `(occur-target ,marker help-echo "mouse-2: go to this occurrence"))))) | 1160 `(occur-target ,marker follow-link t |
| 1161 help-echo "mouse-2: go to this occurrence"))))) | |
| 1161 (goto-char endpt)) | 1162 (goto-char endpt)) |
| 1162 (if endpt | 1163 (if endpt |
| 1163 (progn | 1164 (progn |
| 1164 (setq lines (1+ lines)) | 1165 (setq lines (1+ lines)) |
| 1165 ;; On to the next match... | 1166 ;; On to the next match... |