(indent-new-comment-line): Obey the convention

about \(...\) pairs in comment-start-skip.

diff --git a/lisp/simple.el b/lisp/simple.el
index 8c946eb31b64efd9c1394cd555e2281a27b24572..c958736834f62230a6e28302e47790e14418298b 100644 (file)
--- 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)