diff options
| author | Richard M. Stallman <[email protected]> | 1995-01-30 07:46:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1995-01-30 07:46:16 +0000 |
| commit | c52e9f0b084f4be8b1babb2e662c5277f1a9f687 (patch) | |
| tree | 76ca33f5ff1f573d271bf537b8829fcdfb6ca6c8 /lisp/simple.el | |
| parent | 51566783f012d3cfb23c35d9cd71974e05c97659 (diff) | |
(indent-new-comment-line): Obey the convention
about \(...\) pairs in comment-start-skip.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 8c946eb31b..c958736834 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2316,8 +2316,13 @@ unless optional argument SOFT is non-nil." (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) |