Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
32ce36ad
Commit
32ce36ad
authored
Jan 02, 1995
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(store_in_keymap): While dumping, copy DEF if a cons.
parent
95385625
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
2 deletions
+7
-2
src/keymap.c
src/keymap.c
+7
-2
No files found.
src/keymap.c
View file @
32ce36ad
...
...
@@ -395,6 +395,11 @@ 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
))
def
=
Fcons
(
XCONS
(
def
)
->
car
,
XCONS
(
def
)
->
cdr
);
if
(
!
CONSP
(
keymap
)
||
!
EQ
(
XCONS
(
keymap
)
->
car
,
Qkeymap
))
error
(
"attempt to define a key in a non-keymap"
);
...
...
@@ -463,8 +468,8 @@ store_in_keymap (keymap, idx, def)
keymap_end:
/* We have scanned the entire keymap, and not found a binding for
IDX. Let's add one. */
XCONS
(
insertion_point
)
->
cdr
=
Fcons
(
Fcons
(
idx
,
def
),
XCONS
(
insertion_point
)
->
cdr
);
XCONS
(
insertion_point
)
->
cdr
=
Fcons
(
Fcons
(
idx
,
def
),
XCONS
(
insertion_point
)
->
cdr
);
}
return
def
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment