Mercurial > emacs
comparison lisp/net/goto-addr.el @ 39568:e67950065cf9
Change ;;; to ;; for outline-minor-mode.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 05 Oct 2001 09:36:02 +0000 |
| parents | 253f761ad37b |
| children | 1802ca573682 |
comparison
equal
deleted
inserted
replaced
| 39567:49445c8e650d | 39568:e67950065cf9 |
|---|---|
| 78 "Click to browse URL or to send to e-mail address." | 78 "Click to browse URL or to send to e-mail address." |
| 79 :group 'mouse | 79 :group 'mouse |
| 80 :group 'hypermedia) | 80 :group 'hypermedia) |
| 81 | 81 |
| 82 | 82 |
| 83 ;;; I don't expect users to want fontify'ing without highlighting. | 83 ;; I don't expect users to want fontify'ing without highlighting. |
| 84 (defcustom goto-address-fontify-p t | 84 (defcustom goto-address-fontify-p t |
| 85 "*Non-nil means URLs and e-mail addresses in buffer are fontified. | 85 "*Non-nil means URLs and e-mail addresses in buffer are fontified. |
| 86 But only if `goto-address-highlight-p' is also non-nil." | 86 But only if `goto-address-highlight-p' is also non-nil." |
| 87 :type 'boolean | 87 :type 'boolean |
| 88 :group 'goto-address) | 88 :group 'goto-address) |
| 100 (defvar goto-address-mail-regexp | 100 (defvar goto-address-mail-regexp |
| 101 "[-a-zA-Z0-9._]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" | 101 "[-a-zA-Z0-9._]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" |
| 102 "A regular expression probably matching an e-mail address.") | 102 "A regular expression probably matching an e-mail address.") |
| 103 | 103 |
| 104 (defvar goto-address-url-regexp thing-at-point-url-regexp | 104 (defvar goto-address-url-regexp thing-at-point-url-regexp |
| 105 ;;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" | 105 ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" |
| 106 ;;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" | 106 ;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" |
| 107 ;;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" | 107 ;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" |
| 108 ;;; "[-a-zA-Z0-9_=#$@~`%&*+|\\/]") | 108 ;; "[-a-zA-Z0-9_=#$@~`%&*+|\\/]") |
| 109 "A regular expression probably matching a URL.") | 109 "A regular expression probably matching a URL.") |
| 110 | 110 |
| 111 (defvar goto-address-highlight-keymap | 111 (defvar goto-address-highlight-keymap |
| 112 (let ((m (make-sparse-keymap))) | 112 (let ((m (make-sparse-keymap))) |
| 113 (if (featurep 'xemacs) | 113 (if (featurep 'xemacs) |
| 176 'help-echo "mouse-2: mail this address") | 176 'help-echo "mouse-2: mail this address") |
| 177 (overlay-put this-overlay | 177 (overlay-put this-overlay |
| 178 'keymap goto-address-highlight-keymap) | 178 'keymap goto-address-highlight-keymap) |
| 179 (overlay-put this-overlay 'goto-address t)))))))) | 179 (overlay-put this-overlay 'goto-address t)))))))) |
| 180 | 180 |
| 181 ;;; code to find and goto addresses; much of this has been blatantly | 181 ;; code to find and goto addresses; much of this has been blatantly |
| 182 ;;; snarfed from browse-url.el | 182 ;; snarfed from browse-url.el |
| 183 | 183 |
| 184 ;;;###autoload | 184 ;;;###autoload |
| 185 (defun goto-address-at-mouse (event) | 185 (defun goto-address-at-mouse (event) |
| 186 "Send to the e-mail address or load the URL clicked with the mouse. | 186 "Send to the e-mail address or load the URL clicked with the mouse. |
| 187 Send mail to address at position of mouse click. See documentation for | 187 Send mail to address at position of mouse click. See documentation for |