Mercurial > emacs
changeset 16661:22c70a622b67
(goto-address-fontify): Use overlay, not text props.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 10 Dec 1996 23:29:51 +0000 |
| parents | 16f2e24baf42 |
| children | d3d202f71430 |
| files | lisp/goto-addr.el |
| diffstat | 1 files changed, 16 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/goto-addr.el Tue Dec 10 23:29:00 1996 +0000 +++ b/lisp/goto-addr.el Tue Dec 10 23:29:51 1996 +0000 @@ -130,22 +130,26 @@ (if (< (- (point-max) (point)) goto-address-fontify-maximum-size) (progn (while (re-search-forward goto-address-url-regexp nil t) - (let ((s (match-beginning 0)) - (e (match-end 0))) + (let* ((s (match-beginning 0)) + (e (match-end 0)) + (this-overlay (make-overlay s e))) (and goto-address-fontify-p - (put-text-property s e 'face goto-address-url-face)) - (put-text-property s e 'mouse-face goto-address-url-mouse-face) - (put-text-property - s e 'local-map goto-address-highlight-keymap))) + (overlay-put this-overlay 'face goto-address-url-face)) + (overlay-put this-overlay + 'mouse-face goto-address-url-mouse-face) + (overlay-put this-overlay + 'local-map goto-address-highlight-keymap))) (goto-char (point-min)) (while (re-search-forward goto-address-mail-regexp nil t) - (let ((s (match-beginning 0)) - (e (match-end 0))) + (let* ((s (match-beginning 0)) + (e (match-end 0)) + (this-overlay (make-overlay s e))) (and goto-address-fontify-p - (put-text-property s e 'face goto-address-mail-face)) - (put-text-property s e 'mouse-face goto-address-mail-mouse-face) - (put-text-property - s e 'local-map goto-address-highlight-keymap))))) + (overlay-put this-overlay 'face goto-address-mail-face)) + (overlay-put this-overlay 'mouse-face + goto-address-mail-mouse-face) + (overlay-put this-overlay + 'local-map goto-address-highlight-keymap))))) (and (buffer-modified-p) (not modified) (set-buffer-modified-p nil)))))