Commit bee3fc83 authored by Richard M. Stallman's avatar Richard M. Stallman

(copy_keymap_1): Do nothing if ELT isn't a keymap.

parent cc1cdd74
......@@ -671,7 +671,8 @@ Lisp_Object
copy_keymap_1 (chartable, idx, elt)
Lisp_Object chartable, idx, elt;
{
Faset (chartable, idx, Fcopy_keymap (elt));
if (!SYMBOLP (elt) && ! NILP (Fkeymapp (elt)))
Faset (chartable, idx, Fcopy_keymap (elt));
}
DEFUN ("copy-keymap", Fcopy_keymap, Scopy_keymap, 1, 1, 0,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment