Mercurial > emacs
changeset 10597:b357342180c2
(indent-new-comment-line): Obey the convention
about \(...\) pairs in comment-start-skip.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 30 Jan 1995 07:46:16 +0000 |
| parents | 3cda29fdf5f6 |
| children | 8a07bcbe9130 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Mon Jan 30 07:16:14 1995 +0000 +++ b/lisp/simple.el Mon Jan 30 07:46:16 1995 +0000 @@ -2316,8 +2316,13 @@ (setq win (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))))))) + (setq comstart + (buffer-substring (point) (match-end 0))))))) (if comcol (let ((comment-column comcol) (comment-start comstart)