Mercurial > emacs
changeset 43689:5e6a5df9973a
(comment-forward): Use forward-comment to skip
over whitespace (or comments) even when comment-use-syntax is nil.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 04 Mar 2002 01:10:55 +0000 |
| parents | fc341cea1c38 |
| children | 72f0c48d5c61 |
| files | lisp/newcomment.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/newcomment.el Mon Mar 04 01:09:58 2002 +0000 +++ b/lisp/newcomment.el Mon Mar 04 01:10:55 2002 +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.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 @@ (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))))