diff options
| author | Richard M. Stallman | 1997-05-18 19:06:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-18 19:06:16 +0000 |
| commit | bee3fc83fc8eb3ddee6ed0d6bc6283725f648cc8 (patch) | |
| tree | 29ffb3951704286adf6dd3582d6c52f041c5dc2c /src | |
| parent | cc1cdd74d5ec7ab5cc7d65d2e169a26802ef6b71 (diff) | |
| download | emacs-bee3fc83fc8eb3ddee6ed0d6bc6283725f648cc8.tar.gz emacs-bee3fc83fc8eb3ddee6ed0d6bc6283725f648cc8.zip | |
(copy_keymap_1): Do nothing if ELT isn't a keymap.
Diffstat (limited to 'src')
| -rw-r--r-- | src/keymap.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/keymap.c b/src/keymap.c index 5885e8ba199..6a08a86ef47 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -671,7 +671,8 @@ Lisp_Object | |||
| 671 | copy_keymap_1 (chartable, idx, elt) | 671 | copy_keymap_1 (chartable, idx, elt) |
| 672 | Lisp_Object chartable, idx, elt; | 672 | Lisp_Object chartable, idx, elt; |
| 673 | { | 673 | { |
| 674 | Faset (chartable, idx, Fcopy_keymap (elt)); | 674 | if (!SYMBOLP (elt) && ! NILP (Fkeymapp (elt))) |
| 675 | Faset (chartable, idx, Fcopy_keymap (elt)); | ||
| 675 | } | 676 | } |
| 676 | 677 | ||
| 677 | DEFUN ("copy-keymap", Fcopy_keymap, Scopy_keymap, 1, 1, 0, | 678 | DEFUN ("copy-keymap", Fcopy_keymap, Scopy_keymap, 1, 1, 0, |