From af0e29d18ecbe9a4bc5fb930e01e47edf29edbd6 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 26 Mar 1999 18:02:24 +0000 Subject: [PATCH] (indent-new-comment-line): Handle use at a point after a comment-end. Handle multiple comments. --- lisp/simple.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 92874f5f02e..eb4f7a3f6db 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3219,9 +3219,13 @@ unless optional argument SOFT is non-nil." (if (not comment-multi-line) (save-excursion (if (and comment-start-skip - (let ((opoint (point))) + (let ((opoint (point)) + inside) (forward-line -1) - (re-search-forward comment-start-skip opoint t))) + ;; 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. ;; Set WIN to the pos of the comment-start. ;; But if the comment is empty, look at preceding lines -- 2.39.2