From c4ea32f608a8ae48009e1939340653e9640104d7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 4 Oct 2001 23:05:51 +0000 Subject: [PATCH] Change ;;; to ;; for outline-minor-mode. --- lisp/emacs-lisp/tq.el | 18 +++++++++--------- lisp/net/goto-addr.el | 14 +++++++------- 2 files changed, 16 insertions(+), 16 deletions(-) diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el index 18c94f27cfd..3a32c0b5169 100644 --- a/lisp/emacs-lisp/tq.el +++ b/lisp/emacs-lisp/tq.el @@ -26,15 +26,15 @@ ;;; Commentary: -;;; manages receiving a stream asynchronously, -;;; parsing it into transactions, and then calling -;;; handler functions - -;;; Our basic structure is the queue/process/buffer triple. Each entry -;;; of the queue is a regexp/closure/function triple. We buffer -;;; bytes from the process until we see the regexp at the head of the -;;; queue. Then we call the function with the closure and the -;;; collected bytes. +;; manages receiving a stream asynchronously, +;; parsing it into transactions, and then calling +;; handler functions + +;; Our basic structure is the queue/process/buffer triple. Each entry +;; of the queue is a regexp/closure/function triple. We buffer +;; bytes from the process until we see the regexp at the head of the +;; queue. Then we call the function with the closure and the +;; collected bytes. ;;; Code: 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) -- 2.39.5