Mercurial > emacs
comparison lisp/man.el @ 112408:04c350138c72
* man.el (Man-highlight-references0): Use make-button (Bug#7881).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 21 Jan 2011 22:53:06 -0500 |
| parents | ef719132ddfa |
| children |
comparison
equal
deleted
inserted
replaced
| 112407:3c76e72abd5d | 112408:04c350138c72 |
|---|---|
| 1152 (Man-next-section 1) | 1152 (Man-next-section 1) |
| 1153 (point))) | 1153 (point))) |
| 1154 (goto-char (point-min)) | 1154 (goto-char (point-min)) |
| 1155 nil))) | 1155 nil))) |
| 1156 (while (re-search-forward regexp end t) | 1156 (while (re-search-forward regexp end t) |
| 1157 (make-text-button | 1157 ;; An overlay button is preferable because the underlying text |
| 1158 ;; may have text property highlights (Bug#7881). | |
| 1159 (make-button | |
| 1158 (match-beginning button-pos) | 1160 (match-beginning button-pos) |
| 1159 (match-end button-pos) | 1161 (match-end button-pos) |
| 1160 'type type | 1162 'type type |
| 1161 'Man-target-string (cond | 1163 'Man-target-string (cond |
| 1162 ((numberp target) | 1164 ((numberp target) |