Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
cdfac812
Commit
cdfac812
authored
Jun 14, 1998
by
Richard M. Stallman
Browse files
(Fcall_interactively) <k, K>: If sequence ends in a down
event, discard following up event.
parent
5c6f2f2a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
30 additions
and
0 deletions
+30
-0
src/callint.c
src/callint.c
+30
-0
No files found.
src/callint.c
View file @
cdfac812
...
...
@@ -553,6 +553,21 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
unbind_to
(
speccount1
,
Qnil
);
teml
=
args
[
i
];
visargs
[
i
]
=
Fkey_description
(
teml
);
/* If the key sequence ends with a down-event,
discard the following up-event. */
teml
=
Faref
(
args
[
i
],
make_number
(
XINT
(
Flength
(
args
[
i
]))
-
1
));
if
(
CONSP
(
teml
))
teml
=
XCONS
(
teml
)
->
car
;
if
(
SYMBOLP
(
teml
))
{
Lisp_Object
tem2
;
teml
=
Fget
(
teml
,
intern
(
"event-symbol-elements"
));
tem2
=
Fmemq
(
intern
(
"down"
),
teml
);
if
(
!
NILP
(
tem2
))
Fread_event
();
}
}
break
;
...
...
@@ -565,6 +580,21 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
teml
=
args
[
i
];
visargs
[
i
]
=
Fkey_description
(
teml
);
unbind_to
(
speccount1
,
Qnil
);
/* If the key sequence ends with a down-event,
discard the following up-event. */
teml
=
Faref
(
args
[
i
],
make_number
(
XINT
(
Flength
(
args
[
i
]))
-
1
));
if
(
CONSP
(
teml
))
teml
=
XCONS
(
teml
)
->
car
;
if
(
SYMBOLP
(
teml
))
{
Lisp_Object
tem2
;
teml
=
Fget
(
teml
,
intern
(
"event-symbol-elements"
));
tem2
=
Fmemq
(
intern
(
"down"
),
teml
);
if
(
!
NILP
(
tem2
))
Fread_event
();
}
}
break
;
...
...
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