Mercurial > emacs

comparison src/keymap.c @ 3674:cfa45731460e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcopy_keymap): Check Fkeymapp value with NILP.
author Richard M. Stallman <rms@gnu.org>
date Sat, 12 Jun 1993 07:19:39 +0000
parents 72cfde0cd8cd
children 49ce2242f5c1
comparison
equal deleted inserted replaced
3673:8ab0a7453577 3674:cfa45731460e
462 elt = Fcopy_sequence (elt); 462 elt = Fcopy_sequence (elt);
463 XCONS (tail)->car = elt; 463 XCONS (tail)->car = elt;
464 464
465 for (i = 0; i < XVECTOR (elt)->size; i++) 465 for (i = 0; i < XVECTOR (elt)->size; i++)
466 if (XTYPE (XVECTOR (elt)->contents[i]) != Lisp_Symbol 466 if (XTYPE (XVECTOR (elt)->contents[i]) != Lisp_Symbol
467 && Fkeymapp (XVECTOR (elt)->contents[i])) 467 && ! NILP (Fkeymapp (XVECTOR (elt)->contents[i])))
468 XVECTOR (elt)->contents[i] = 468 XVECTOR (elt)->contents[i] =
469 Fcopy_keymap (XVECTOR (elt)->contents[i]); 469 Fcopy_keymap (XVECTOR (elt)->contents[i]);
470 } 470 }
471 else if (CONSP (elt) 471 else if (CONSP (elt)
472 && XTYPE (XCONS (elt)->cdr) != Lisp_Symbol 472 && XTYPE (XCONS (elt)->cdr) != Lisp_Symbol