diff options
| -rw-r--r-- | lisp/net/goto-addr.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 2cf502bad6a..be7c736065f 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el | |||
| @@ -147,6 +147,8 @@ and `goto-address-fontify-p'." | |||
| 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) |
| @@ -157,6 +159,8 @@ 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) |