Mercurial > emacs

changeset 40668:56aa9e5dc60c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-context-prefix): Fix braino.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 03 Nov 2001 00:55:10 +0000
parents 589781f0ee38
children 686c91f02b2c
files lisp/textmodes/fill.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)