* fns.c: #include keyboard.h.

	(Fdelete): Check if Fequal returns Qnil, not zero.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/fns.c b/src/fns.c
index 0bcf414179b..6eb97d4683a 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -29,6 +29,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "commands.h"
 
 #include "buffer.h"
+#include "keyboard.h"
 
 Lisp_Object Qstring_lessp;
 
@@ -620,7 +621,7 @@ to be sure of changing the value of `foo'.")
   while (!NILP (tail))
     {
       tem = Fcar (tail);
-      if (Fequal (elt, tem))
+      if (! NILP (Fequal (elt, tem)))
         {
           if (NILP (prev))
             list = Fcdr (tail);