Mercurial > emacs
changeset 10943:6a2af2832a42
(indent-new-comment-line): Clean up handling of \(...\) in comment-start-skip.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 08 Mar 1995 03:49:00 +0000 |
| parents | 3f77513d0a77 |
| children | ade108508c1e |
| files | lisp/simple.el |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Mar 08 03:43:34 1995 +0000 +++ b/lisp/simple.el Wed Mar 08 03:49:00 1995 +0000 @@ -2282,20 +2282,19 @@ ;; 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. - (let ((win (match-beginning 0))) + + ;; If comment-start-skip contains a \(...\) pair, + ;; the real comment delimiter starts at the end of that pair. + (let ((win (or (match-end 1) (match-beginning 0)))) (while (and (eolp) (not (bobp)) (let (opoint) (beginning-of-line) (setq opoint (point)) (forward-line -1) (re-search-forward comment-start-skip opoint t))) - (setq win (match-beginning 0))) + (setq win (or (match-end 1) (match-beginning 0)))) ;; Indent this line like what we found. (goto-char win) - ;; If comment-start-skip contains a \(...\) pair, - ;; the real comment delimiter starts at the end of that pair. - (if (match-end 1) - (goto-char (match-end 1))) (setq comcol (current-column)) (setq comstart (buffer-substring (point) (match-end 0)))))))