Mercurial > emacs
changeset 76879:d703606e395a
(comment-search-forward): Discard comment starters before point.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 01 Apr 2007 19:33:44 +0000 |
| parents | e4d2810db0e9 |
| children | def0f242e449 |
| files | lisp/newcomment.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/newcomment.el Sun Apr 01 18:11:15 2007 +0000 +++ b/lisp/newcomment.el Sun Apr 01 19:33:44 2007 +0000 @@ -391,7 +391,9 @@ 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))