From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 30 Jan 1995 07:46:16 +0000 (+0000)
Subject: (indent-new-comment-line): Obey the convention
X-Git-Tag: emacs-19.34~5261
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c52e9f0b084f4be8b1babb2e662c5277f1a9f687;p=emacs.git

(indent-new-comment-line): Obey the convention
about \(...\) pairs in comment-start-skip.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 8c946eb31b6..c958736834f 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)