# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1004748910 0
# Node ID 56aa9e5dc60c6fb82206d83126e98b25925f6a88
# Parent  589781f0ee3826daa73a80948361b114f985915b
(fill-context-prefix): Fix braino.

diff -r 589781f0ee38 -r 56aa9e5dc60c lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Sat Nov 03 00:37:56 2001 +0000
+++ b/lisp/textmodes/fill.el	Sat Nov 03 00:55:10 2001 +0000
@@ -200,12 +200,12 @@
     (goto-char from)
     (if (eolp) (forward-line 1))
     ;; Move to the second line unless there is just one.
+    (move-to-left-margin)
     (let ((firstline (point))
 	  first-line-prefix
 	  ;; Non-nil if we are on the second line.
 	  second-line-prefix
 	  start)
-      (move-to-left-margin)
       (setq start (point))
       (setq first-line-prefix
 	    ;; We don't need to consider `paragraph-start' here since it
@@ -238,7 +238,7 @@
 		;; Used when first line is `/* ...' and second-line is
 		;; ` * ...'.
 		(save-excursion
-		  (goto-char start)
+		  (goto-char firstline)
 		  (looking-at
 		   (apply 'concat
 			  (mapcar (lambda (c)