diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-03-04 01:10:55 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-03-04 01:10:55 +0000 |
| commit | 0f38a885d5f669a6fc70ddb44aa797f64051ee80 (patch) | |
| tree | d2657838e73225f4806c695d4f0f10dfb2d8d3bf /lisp/newcomment.el | |
| parent | bedf0b73d1c40a944c9ebf96a6b07f07c0722425 (diff) | |
| download | emacs-0f38a885d5f669a6fc70ddb44aa797f64051ee80.tar.gz | |
(comment-forward): Use forward-comment to skip
over whitespace (or comments) even when comment-use-syntax is nil.
Diffstat (limited to 'lisp/newcomment.el')
| -rw-r--r-- | lisp/newcomment.el | 10 |
1 files 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 <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 @@ 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)))) |