diff options
| -rw-r--r-- | lisp/newcomment.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 7fce0f7bde8..b0a166465fa 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el | |||
| @@ -391,7 +391,9 @@ and raises an error or returns nil if NOERROR is non-nil." | |||
| 391 | pt (or limit (point-max)) nil nil | 391 | pt (or limit (point-max)) nil nil |
| 392 | (list nil nil nil (nth 3 s) nil nil nil nil) | 392 | (list nil nil nil (nth 3 s) nil nil nil nil) |
| 393 | t))) | 393 | t))) |
| 394 | (if (not (and (nth 8 s) (not (nth 3 s)))) | 394 | (if (or (not (and (nth 8 s) (not (nth 3 s)))) |
| 395 | ;; Make sure the comment starts after PT. | ||
| 396 | (< (nth 8 s) pt)) | ||
| 395 | (unless noerror (error "No comment")) | 397 | (unless noerror (error "No comment")) |
| 396 | ;; We found the comment. | 398 | ;; We found the comment. |
| 397 | (let ((pos (point)) | 399 | (let ((pos (point)) |