From: Stefan Monnier Date: Thu, 22 Feb 2001 01:48:24 +0000 (+0000) Subject: (comment-forward): Skip the comment-start before X-Git-Tag: emacs-pretest-21.0.99~229 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76a4de07253dab62ca731fb5db09309a07205a09;p=emacs.git (comment-forward): Skip the comment-start before searching for the comment-end. --- 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 + + * newcomment.el (comment-forward): Skip the comment-start before + searching for the comment-end. + 2001-02-21 Dave Love * 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 ;; 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))))