# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1002274562 0
# Node ID e67950065cf97db922ae727e8ade4c85b4db09fc
# Parent  49445c8e650dce393293248675ad71d5ab4fc9ed
Change ;;; to ;; for outline-minor-mode.

diff -r 49445c8e650d -r e67950065cf9 lisp/bs.el
--- a/lisp/bs.el	Fri Oct 05 09:35:36 2001 +0000
+++ b/lisp/bs.el	Fri Oct 05 09:36:02 2001 +0000
@@ -187,7 +187,7 @@
       (setq ele (cdr ele)))
     (concat res "$\\)")))
 
-;;; Font-Lock-Settings
+;; Font-Lock-Settings
 (defvar bs-mode-font-lock-keywords
   (list ;; header in font-lock-type-face
    (list (bs--make-header-match-string)
@@ -1511,7 +1511,7 @@
   (setq bs--marked-buffers nil)
   (bs--show-with-configuration (bs--configuration-name-for-prefix-arg arg)))
 
-;;; Now provide feature bs
+;; Now provide feature bs
 (provide 'bs)
 
 ;;; bs.el ends here
diff -r 49445c8e650d -r e67950065cf9 lisp/emacs-lisp/tq.el
--- a/lisp/emacs-lisp/tq.el	Fri Oct 05 09:35:36 2001 +0000
+++ b/lisp/emacs-lisp/tq.el	Fri Oct 05 09:36:02 2001 +0000
@@ -26,15 +26,15 @@
 
 ;;; Commentary:
  
-;;; manages receiving a stream asynchronously, 
-;;; parsing it into transactions, and then calling
-;;; handler functions
+;; 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.
+;; 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 -r 49445c8e650d -r e67950065cf9 lisp/net/goto-addr.el
--- a/lisp/net/goto-addr.el	Fri Oct 05 09:35:36 2001 +0000
+++ b/lisp/net/goto-addr.el	Fri Oct 05 09:36:02 2001 +0000
@@ -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 @@
   "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 @@
                              '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)