From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 8 Mar 1995 03:49:00 +0000 (+0000)
Subject: (indent-new-comment-line): Clean up handling of \(...\) in comment-start-skip.
X-Git-Tag: emacs-19.34~4915
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=93b036536228e060c897b694affd9d1d70510309;p=emacs.git

(indent-new-comment-line): Clean up handling of \(...\) in comment-start-skip.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 5d0058d19a6..8fc7727b0fb 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2282,20 +2282,19 @@ unless optional argument SOFT is non-nil."
 	      ;; Set WIN to the pos of the comment-start.
 	      ;; But if the comment is empty, look at preceding lines
 	      ;; to find one that has a nonempty comment.
-	      (let ((win (match-beginning 0)))
+
+	      ;; If comment-start-skip contains a \(...\) pair,
+	      ;; the real comment delimiter starts at the end of that pair.
+	      (let ((win (or (match-end 1) (match-beginning 0))))
 		(while (and (eolp) (not (bobp))
 			    (let (opoint)
 			      (beginning-of-line)
 			      (setq opoint (point))
 			      (forward-line -1)
 			      (re-search-forward comment-start-skip opoint t)))
-		  (setq win (match-beginning 0)))
+		  (setq win (or (match-end 1) (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)))))))