(comment-forward): Skip the comment-start before

searching for the comment-end.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b807d9e6bc2..3a35143a68a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-02-21  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * newcomment.el (comment-forward): Skip the comment-start before
+        searching for the comment-end.
+
 2001-02-21  Dave Love  <fx@gnu.org>
 
         * custom.el (custom-initialize-changed, defcustom): Doc fix.
diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index f67e81b3414..09b928dea26 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -5,7 +5,7 @@
 ;; Author: code extracted from Emacs-20's simple.el
 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: comment uncomment
-;; Revision: $Id: newcomment.el,v 1.28 2000/12/11 21:41:35 monnier Exp $
+;; Revision: $Id: newcomment.el,v 1.29 2000/12/18 03:17:31 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -367,6 +367,7 @@ and can use regexps instead of syntax."
         (skip-syntax-forward " ")
         (setq n
               (if (and (looking-at comment-start-skip)
+                       (goto-char (match-end 0))
                        (re-search-forward comment-end-skip nil 'move))
                   (1- n) -1)))
       (= n 0))))