From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 5 Oct 2001 09:36:02 +0000 (+0000)
Subject: Change ;;; to ;; for outline-minor-mode.
X-Git-Tag: ttn-vms-21-2-B4~19749
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8754ce5289bd855f19c9bd522c8aac7b79fa4e0;p=emacs.git

Change ;;; to ;; for outline-minor-mode.
---

diff --git a/lisp/bs.el b/lisp/bs.el
index 26942c3e593..ac4598df0f7 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -187,7 +187,7 @@ return a string representing the column's value."
       (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 @@ name of buffer configuration."
   (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 --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)