# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 980957527 0
# Node ID e8b7be229b24019375976ad37debd73591726257
# Parent  3fda213b2ac511abd4e361b11ea0bbeefeb89a60
(set-fill-prefix): Cancel fill prefix if point
is in front of the left-margin, if any.

diff -r 3fda213b2ac5 -r e8b7be229b24 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Wed Jan 31 15:20:17 2001 +0000
+++ b/lisp/textmodes/fill.el	Wed Jan 31 16:12:07 2001 +0000
@@ -74,11 +74,13 @@
 Filling expects lines to start with the fill prefix and
 reinserts the fill prefix in each resulting line."
   (interactive)
-  (setq fill-prefix (buffer-substring
-		     (save-excursion (move-to-left-margin) (point))
-		     (point)))
-  (if (equal fill-prefix "")
-      (setq fill-prefix nil))
+  (let ((left-margin-pos (save-excursion (move-to-left-margin) (point))))
+    (if (> (point) left-margin-pos)
+	(progn
+	  (setq fill-prefix (buffer-substring left-margin-pos (point)))
+	  (if (equal fill-prefix "")
+	      (setq fill-prefix nil)))
+      (setq fill-prefix nil)))
   (if fill-prefix
       (message "fill-prefix: \"%s\"" fill-prefix)
     (message "fill-prefix cancelled")))