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

searching for the comment-end.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b807d9e6bc20edea7877d7d9eabeede40e7adee2..3a35143a68a7b1e4be0ac4c26243e20e2eaf4ec2 100644 (file)
--- 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 f67e81b34148b669b2e83160cd582c81d6c1d4f8..09b928dea264cc32aac4236070393a0eec940897 100644 (file)
--- 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))))