Mercurial > emacs
comparison lisp/net/goto-addr.el @ 29209:67618bef1515
(goto-address-fontify): Add help-echo property.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 25 May 2000 18:15:44 +0000 |
| parents | b56f9152e329 |
| children | dfb2dd2b862a |
comparison
equal
deleted
inserted
replaced
| 29208:15df28a6f99f | 29209:67618bef1515 |
|---|---|
| 145 (and goto-address-fontify-p | 145 (and goto-address-fontify-p |
| 146 (overlay-put this-overlay 'face goto-address-url-face)) | 146 (overlay-put this-overlay 'face goto-address-url-face)) |
| 147 (overlay-put this-overlay | 147 (overlay-put this-overlay |
| 148 'mouse-face goto-address-url-mouse-face) | 148 'mouse-face goto-address-url-mouse-face) |
| 149 (overlay-put this-overlay | 149 (overlay-put this-overlay |
| 150 'help-echo "mouse-2: follow URL") | |
| 151 (overlay-put this-overlay | |
| 150 'local-map goto-address-highlight-keymap))) | 152 'local-map goto-address-highlight-keymap))) |
| 151 (goto-char (point-min)) | 153 (goto-char (point-min)) |
| 152 (while (re-search-forward goto-address-mail-regexp nil t) | 154 (while (re-search-forward goto-address-mail-regexp nil t) |
| 153 (let* ((s (match-beginning 0)) | 155 (let* ((s (match-beginning 0)) |
| 154 (e (match-end 0)) | 156 (e (match-end 0)) |
| 155 (this-overlay (make-overlay s e))) | 157 (this-overlay (make-overlay s e))) |
| 156 (and goto-address-fontify-p | 158 (and goto-address-fontify-p |
| 157 (overlay-put this-overlay 'face goto-address-mail-face)) | 159 (overlay-put this-overlay 'face goto-address-mail-face)) |
| 158 (overlay-put this-overlay 'mouse-face | 160 (overlay-put this-overlay 'mouse-face |
| 159 goto-address-mail-mouse-face) | 161 goto-address-mail-mouse-face) |
| 162 (overlay-put this-overlay | |
| 163 'help-echo "mouse-2: follow URL") | |
| 160 (overlay-put this-overlay | 164 (overlay-put this-overlay |
| 161 'local-map goto-address-highlight-keymap))))) | 165 'local-map goto-address-highlight-keymap))))) |
| 162 (and (buffer-modified-p) | 166 (and (buffer-modified-p) |
| 163 (not modified) | 167 (not modified) |
| 164 (set-buffer-modified-p nil))))) | 168 (set-buffer-modified-p nil))))) |