# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 866140948 0
# Node ID d8db4d037677752899dc0a803421258ca2528daf
# Parent  81fa1f5547ebda3fd8ce46b61539d58241826146
(fill-context-prefix): Don't crash if RESULT is nil when AT-SECOND is t.

diff -r 81fa1f5547eb -r d8db4d037677 lisp/textmodes/fill.el
--- a/lisp/textmodes/fill.el	Thu Jun 12 05:22:15 1997 +0000
+++ b/lisp/textmodes/fill.el	Thu Jun 12 18:42:28 1997 +0000
@@ -200,10 +200,11 @@
 	(if at-second
 	    ;; If we get a fill prefix from the second line,
 	    ;; make sure it's on the first line too.
-	    (save-excursion
-	      (forward-line -1)
-	      (if (looking-at (regexp-quote result))
-		  result))
+	    (and result
+		 (save-excursion
+		   (forward-line -1)
+		   (if (looking-at (regexp-quote result))
+		       result)))
 	  ;; If we get a fill prefix from a one-line paragraph,
 	  ;; maybe change it to whitespace,
 	  ;; and check that it isn't a paragraph starter.