mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-15 17:00:26 +00:00
Code Issues Releases Activity

(store_in_keymap): Copy a cons only if car is a string.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-01-08 20:24:36 +00:00
parent a0a7635faa
commit dce4372a8e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/keymap.c
View File

@ -395,9 +395,10 @@ store_in_keymap (keymap, idx, def)
register Lisp_Object idx;
register Lisp_Object def;
{
/* If we are preparing to dump, and DEF might be pure,
copy it to ensure it is not pure. */
if (!NILP (Vpurify_flag) && CONSP (def))
/* If we are preparing to dump, and DEF is a menu element
with a menu item string, copy it to ensure it is not pure. */
if (!NILP (Vpurify_flag) && CONSP (def)
&& STRINGP (XCONS (def)->car))
def = Fcons (XCONS (def)->car, XCONS (def)->cdr);
if (!CONSP (keymap) || ! EQ (XCONS (keymap)->car, Qkeymap))