From 0f38a885d5f669a6fc70ddb44aa797f64051ee80 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 4 Mar 2002 01:10:55 +0000 Subject: [PATCH] (comment-forward): Use forward-comment to skip over whitespace (or comments) even when comment-use-syntax is nil. --- lisp/newcomment.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 91ad7e64f35..0b4e662620d 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.43 2001/12/14 21:53:29 monnier Exp $ +;; Revision: $Id: newcomment.el,v 1.44 2002/01/13 09:59:39 pj Exp $ ;; This file is part of GNU Emacs. @@ -389,11 +389,11 @@ and can use regexps instead of syntax." (if (< n 0) (error "No comment-backward") (if comment-use-syntax (forward-comment n) (while (> n 0) - (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)) + (if (or (forward-comment 1) + (and (looking-at comment-start-skip) + (goto-char (match-end 0)) + (re-search-forward comment-end-skip nil 'move))) (1- n) -1))) (= n 0)))) -- 2.39.5