Mercurial > emacs

changeset 36271:ee3fcc29254e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comment-forward): Skip the comment-start before searching for the comment-end.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 22 Feb 2001 01:47:40 +0000
parents 6d6e72abff79
children 8f0d221a6a9b
files lisp/newcomment.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/newcomment.el	Wed Feb 21 20:47:38 2001 +0000
+++ b/lisp/newcomment.el	Thu Feb 22 01:47:40 2001 +0000
@@ -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 @@
 	(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))))