# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 791451976 0
# Node ID b357342180c2d31fc372366e605d8f8301f2c4da
# Parent  3cda29fdf5f64da76aac0961c611687f40d1c15b
(indent-new-comment-line): Obey the convention
about \(...\) pairs in comment-start-skip.

diff -r 3cda29fdf5f6 -r b357342180c2 lisp/simple.el
--- 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)