mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(indent-new-comment-line): Handle use at a point

Browse source 
after a comment-end.  Handle multiple comments.
This commit is contained in:
Karl Heuer 1999-03-26 18:02:24 +00:00
parent db0e544166
commit af0e29d18e
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/simple.el
View file

@ -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