mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-21 03:52:16 -08:00
Code Issues Projects Releases Wiki Activity

(comment-forward): Use forward-comment to skip

Browse source 
over whitespace (or comments) even when comment-use-syntax is nil.
This commit is contained in:
Stefan Monnier 2002-03-04 01:17:27 +00:00
parent f03c052c0f
commit 7fa207b9d7
2 changed files with 10 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2002-03-03 Stefan Monnier <monnier@cs.yale.edu>
* newcomment.el (comment-forward): Use forward-comment to skip
over whitespace (or comments) even when comment-use-syntax is nil.
2002-03-02 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
* textmodes/tildify.el (tildify-string-alist): Entry for xml-mode

10
lisp/newcomment.el
View file

@ -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.35.4.2 2001/11/19 04:59:10 monnier Exp $
;; Revision: $Id: newcomment.el,v 1.35.4.3 2001/11/19 20:35:04 monnier Exp $
;; This file is part of GNU Emacs.
@ -387,11 +387,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))))