[Emacs-diffs] Changes to emacs/lisp/newcomment.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        07/04/01 19:33:44

Index: newcomment.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/newcomment.el,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -b -r1.100 -r1.101
--- newcomment.el       21 Jan 2007 03:53:11 -0000      1.100
+++ newcomment.el       1 Apr 2007 19:33:44 -0000       1.101
@@ -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))