comparison lisp/simple.el @ 24522:3147a1a92eeb

(indent-new-comment-line): Handle use at a point after a comment-end. Handle multiple comments.

24521:f4dd298e46a3

	  (indent-to-left-margin)
	  (insert-and-inherit fill-prefix))
      (if (not comment-multi-line)
	  (save-excursion
	    (if (and comment-start-skip
		     (let ((opoint (point)))
		       (forward-line -1)
		       (re-search-forward comment-start-skip 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
		;; to find one that has a nonempty comment.

24522:3147a1a92eeb

	  (indent-to-left-margin)
	  (insert-and-inherit fill-prefix))
      (if (not comment-multi-line)
	  (save-excursion
	    (if (and comment-start-skip
		     (let ((opoint (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.
		;; 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.