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

(comment-search-forward): Discard comment starters before point.

Browse source
This commit is contained in:
Stefan Monnier 2007-04-01 19:33:44 +00:00
parent 15bcde049f
commit 5605893d03
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/newcomment.el
View file

@ -391,7 +391,9 @@ and raises an error or returns nil if NOERROR is non-nil."
pt (or limit (point-max)) nil nil
(list nil nil nil (nth 3 s) nil nil nil nil)
t)))
(if (not (and (nth 8 s) (not (nth 3 s))))
(if (or (not (and (nth 8 s) (not (nth 3 s))))
;; Make sure the comment starts after PT.
(< (nth 8 s) pt))
(unless noerror (error "No comment"))
;; We found the comment.
(let ((pos (point))