From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 3 Nov 2001 00:55:10 +0000 (+0000)
Subject: (fill-context-prefix): Fix braino.
X-Git-Tag: ttn-vms-21-2-B4~18868
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d1f0a5ea92a494b45adfde8db97bbb914f14a17;p=emacs.git

(fill-context-prefix): Fix braino.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index afe493b5591..dedceb730b6 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -200,12 +200,12 @@ act as a paragraph-separator."
     (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 @@ act as a paragraph-separator."
 		;; Used when first line is `/* ...' and second-line is
 		;; ` * ...'.
 		(save-excursion
-		  (goto-char start)
+		  (goto-char firstline)
 		  (looking-at
 		   (apply 'concat
 			  (mapcar (lambda (c)