# HG changeset patch
# User Martin Stjernholm <mast@lysator.liu.se>
# Date 1019514945 0
# Node ID 52388a234829e18fcc07e03a97c549a21cabf2d8
# Parent  628a697e2315bb6996402309f69921043be4cefc
(c-mask-comment): Fixed bug where point was moved to the following line when
it was at the first line of a block comment where comment-start-skip matched
to eol.

diff -r 628a697e2315 -r 52388a234829 lisp/progmodes/cc-cmds.el
--- a/lisp/progmodes/cc-cmds.el	Mon Apr 22 22:33:36 2002 +0000
+++ b/lisp/progmodes/cc-cmds.el	Mon Apr 22 22:35:45 2002 +0000
@@ -2900,7 +2900,8 @@
 	      ;; The region includes the comment starter.
 	      (save-excursion
 		(goto-char (car c-lit-limits))
-		(if (looking-at (concat "\\(" comment-start-skip "\\)$"))
+		(if (and (looking-at (concat "\\(" comment-start-skip "\\)$"))
+			 (> here (match-end 0)))
 		    ;; Begin with the next line.
 		    (setq beg (c-point 'bonl))
 		  ;; Fake the fill prefix in the first line.