procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(comment-forward): Skip the comment-start before

Browse source 
searching for the comment-end.
This commit is contained in:
Stefan Monnier 2001-02-22 01:48:24 +00:00
parent 2f4c9a87dd
commit 76a4de0725
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2001-02-21 Stefan Monnier <monnier@cs.yale.edu>
* newcomment.el (comment-forward): Skip the comment-start before
searching for the comment-end.
2001-02-21 Dave Love <fx@gnu.org>
* custom.el (custom-initialize-changed, defcustom): Doc fix.

3
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.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 @@ and can use regexps instead of syntax."
(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))))