From 6d1f0a5ea92a494b45adfde8db97bbb914f14a17 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 3 Nov 2001 00:55:10 +0000 Subject: [PATCH] (fill-context-prefix): Fix braino. --- lisp/textmodes/fill.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5