diff options
| author | Richard M. Stallman | 1997-06-04 21:21:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-06-04 21:21:53 +0000 |
| commit | 7cc0629653cc9a5d9d0feeb513807b90d4239f35 (patch) | |
| tree | 22b4539df86e3c84d015314d694669e3eaac573a /src/keymap.c | |
| parent | 4e7c142c7fbcba351f896270006b02f6a4f46f8a (diff) | |
| download | emacs-7cc0629653cc9a5d9d0feeb513807b90d4239f35.tar.gz emacs-7cc0629653cc9a5d9d0feeb513807b90d4239f35.zip | |
(Fcopy_keymap): After copying a sub-char-table, do store the copy.
Diffstat (limited to 'src/keymap.c')
| -rw-r--r-- | src/keymap.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/keymap.c b/src/keymap.c index 32c4afb322d..ef7e90df53a 100644 --- a/src/keymap.c +++ b/src/keymap.c | |||
| @@ -712,6 +712,8 @@ is not copied.") | |||
| 712 | = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object)); | 712 | = (Lisp_Object *) alloca (3 * sizeof (Lisp_Object)); |
| 713 | 713 | ||
| 714 | elt = Fcopy_sequence (elt); | 714 | elt = Fcopy_sequence (elt); |
| 715 | XCONS (tail)->car = elt; | ||
| 716 | |||
| 715 | map_char_table (copy_keymap_1, Qnil, elt, elt, 0, indices); | 717 | map_char_table (copy_keymap_1, Qnil, elt, elt, 0, indices); |
| 716 | } | 718 | } |
| 717 | else if (VECTORP (elt)) | 719 | else if (VECTORP (elt)) |