diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 2d79754b4f0..31963f7538c 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -1129,11 +1129,17 @@ See also `multi-occur'." | |||
| 1129 | (append | 1129 | (append |
| 1130 | (when prefix-face | 1130 | (when prefix-face |
| 1131 | `(font-lock-face prefix-face)) | 1131 | `(font-lock-face prefix-face)) |
| 1132 | '(occur-prefix t))) | 1132 | `(occur-prefix t mouse-face (highlight) |
| 1133 | occur-target ,marker follow-link t | ||
| 1134 | help-echo "mouse-2: go to this occurrence"))) | ||
| 1133 | ;; We don't put `mouse-face' on the newline, | 1135 | ;; We don't put `mouse-face' on the newline, |
| 1134 | ;; because that loses. And don't put it | 1136 | ;; because that loses. And don't put it |
| 1135 | ;; on context lines to reduce flicker. | 1137 | ;; on context lines to reduce flicker. |
| 1136 | (propertize curstring 'mouse-face 'highlight) | 1138 | (propertize curstring 'mouse-face (list 'highlight) |
| 1139 | 'occur-target marker | ||
| 1140 | 'follow-link t | ||
| 1141 | 'help-echo | ||
| 1142 | "mouse-2: go to this occurrence") | ||
| 1137 | "\n")) | 1143 | "\n")) |
| 1138 | (data | 1144 | (data |
| 1139 | (if (= nlines 0) | 1145 | (if (= nlines 0) |
| @@ -1154,11 +1160,7 @@ See also `multi-occur'." | |||
| 1154 | (let ((beg (point)) | 1160 | (let ((beg (point)) |
| 1155 | (end (progn (insert data) (point)))) | 1161 | (end (progn (insert data) (point)))) |
| 1156 | (unless (= nlines 0) | 1162 | (unless (= nlines 0) |
| 1157 | (insert "-------\n")) | 1163 | (insert "-------\n"))))) |
| 1158 | (add-text-properties | ||
| 1159 | beg end | ||
| 1160 | `(occur-target ,marker follow-link t | ||
| 1161 | help-echo "mouse-2: go to this occurrence"))))) | ||
| 1162 | (goto-char endpt)) | 1164 | (goto-char endpt)) |
| 1163 | (if endpt | 1165 | (if endpt |
| 1164 | (progn | 1166 | (progn |