Mercurial > emacs
changeset 24626:37dec422bd7c
(indent-new-comment-line): Fix previous change.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 26 Apr 1999 05:11:01 +0000 |
| parents | 5b75b8661881 |
| children | a08dbf9b97ed |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon Apr 26 05:09:59 1999 +0000 +++ b/lisp/simple.el Mon Apr 26 05:11:01 1999 +0000 @@ -3219,14 +3219,16 @@ (if (not comment-multi-line) (save-excursion (if (and comment-start-skip - (let ((opoint (point)) + (let ((opoint (1- (point))) inside) (forward-line -1) ;; Determine (more or less) whether ;; target position is inside a comment. - (while (and (setq inside (re-search-forward comment-start-skip opoint t)) - (not (setq inside (not (search-forward comment-end opoint t)))))))) - ;; The old line is a comment. + (while (and (re-search-forward comment-start-skip opoint t) + (not (setq inside (or (equal comment-end "") + (not (search-forward comment-end opoint t))))))) + inside)) + ;; The old line has a comment and point was inside the comment. ;; Set WIN to the pos of the comment-start. ;; But if the comment is empty, look at preceding lines ;; to find one that has a nonempty comment.