diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:36:02 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-10-05 09:36:02 +0000 |
| commit | d8754ce5289bd855f19c9bd522c8aac7b79fa4e0 (patch) | |
| tree | f77838f6a916c22f0fa6e06cfc8e10d1b3a0800e /lisp/net/goto-addr.el | |
| parent | 7271daf79bd8866c45c00d66157fab3d811c2ea4 (diff) | |
| download | emacs-d8754ce5289bd855f19c9bd522c8aac7b79fa4e0.tar.gz | |
Change ;;; to ;; for outline-minor-mode.
Diffstat (limited to 'lisp/net/goto-addr.el')
| -rw-r--r-- | lisp/net/goto-addr.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 497052b8ab9..61c615b4aca 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -80,7 +80,7 @@ :group 'hypermedia) -;;; I don't expect users to want fontify'ing without highlighting. +;; I don't expect users to want fontify'ing without highlighting. (defcustom goto-address-fontify-p t "*Non-nil means URLs and e-mail addresses in buffer are fontified. But only if `goto-address-highlight-p' is also non-nil." @@ -102,10 +102,10 @@ But only if `goto-address-highlight-p' is also non-nil." "A regular expression probably matching an e-mail address.") (defvar goto-address-url-regexp thing-at-point-url-regexp -;;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" -;;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" -;;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" -;;; "[-a-zA-Z0-9_=#$@~`%&*+|\\/]") + ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" + ;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" + ;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" + ;; "[-a-zA-Z0-9_=#$@~`%&*+|\\/]") "A regular expression probably matching a URL.") (defvar goto-address-highlight-keymap @@ -178,8 +178,8 @@ and `goto-address-fontify-p'." 'keymap goto-address-highlight-keymap) (overlay-put this-overlay 'goto-address t)))))))) -;;; code to find and goto addresses; much of this has been blatantly -;;; snarfed from browse-url.el +;; code to find and goto addresses; much of this has been blatantly +;; snarfed from browse-url.el ;;;###autoload (defun goto-address-at-mouse (event) |