mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(goto-address-fontify): Use overlay, not text props.

Browse Source
This commit is contained in:
Richard M. Stallman 1996-12-10 23:29:51 +00:00
parent b6436d4e83
commit 79dc9431d8
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/goto-addr.el
View File

@ -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)))))