From 79dc9431d8a925a5aa4b4d1023d26c188da9338a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 10 Dec 1996 23:29:51 +0000 Subject: [PATCH] (goto-address-fontify): Use overlay, not text props. --- lisp/goto-addr.el | 28 ++++++++++++++++------------ 1 file changed, 16 insertions(+), 12 deletions(-) diff --git a/lisp/goto-addr.el b/lisp/goto-addr.el index 4c40232df42..ecf64b3dcfb 100644 --- a/lisp/goto-addr.el +++ b/lisp/goto-addr.el @@ -130,22 +130,26 @@ and `goto-address-fontify-p'." (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))))) -- 2.39.5