# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 720508823 0
# Node ID 7381accd610d648f3b3d427733a3b85f7781cad2
# Parent  bef6b6903528324d2138f31ed70cea0b751db4a2
	* fns.c: #include keyboard.h.
	(Fdelete): Check if Fequal returns Qnil, not zero.

diff -r bef6b6903528 -r 7381accd610d src/fns.c
--- a/src/fns.c	Sat Oct 31 05:19:58 1992 +0000
+++ b/src/fns.c	Sat Oct 31 05:20:23 1992 +0000
@@ -29,6 +29,7 @@
 #include "commands.h"
 
 #include "buffer.h"
+#include "keyboard.h"
 
 Lisp_Object Qstring_lessp;
 
@@ -620,7 +621,7 @@
   while (!NILP (tail))
     {
       tem = Fcar (tail);
-      if (Fequal (elt, tem))
+      if (! NILP (Fequal (elt, tem)))
 	{
 	  if (NILP (prev))
 	    list = Fcdr (tail);