# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739869579 0
# Node ID cfa45731460ed5d61924ff7d0fdabcfe2893195d
# Parent  8ab0a7453577b14b35fa4ea9bef5385c2549a966
(Fcopy_keymap): Check Fkeymapp value with NILP.

diff -r 8ab0a7453577 -r cfa45731460e src/keymap.c
--- a/src/keymap.c	Sat Jun 12 07:19:24 1993 +0000
+++ b/src/keymap.c	Sat Jun 12 07:19:39 1993 +0000
@@ -464,7 +464,7 @@
 
 	  for (i = 0; i < XVECTOR (elt)->size; i++)
 	    if (XTYPE (XVECTOR (elt)->contents[i]) != Lisp_Symbol
-		&& Fkeymapp (XVECTOR (elt)->contents[i]))
+		&& ! NILP (Fkeymapp (XVECTOR (elt)->contents[i])))
 	      XVECTOR (elt)->contents[i] =
 		Fcopy_keymap (XVECTOR (elt)->contents[i]);
 	}