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
1b511542
Commit
1b511542
authored
Feb 19, 2008
by
Stefan Monnier
Browse files
(Fcall_interactively): Use AREF.
parent
a02bf0c3
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
5 deletions
+9
-5
src/ChangeLog
src/ChangeLog
+4
-0
src/callint.c
src/callint.c
+5
-5
No files found.
src/ChangeLog
View file @
1b511542
2008-02-19 Stefan Monnier <monnier@iro.umontreal.ca>
* callint.c (Fcall_interactively): Use AREF.
2008-02-18 Stefan Monnier <monnier@iro.umontreal.ca>
* font.c (font_unparse_xlfd): Don't ignore integer pixel size specs.
...
...
src/callint.c
View file @
1b511542
...
...
@@ -390,7 +390,7 @@ invoke it. If KEYS is omitted or nil, the return value of
/* Set next_event to point to the first event with parameters. */
for
(
next_event
=
0
;
next_event
<
key_count
;
next_event
++
)
if
(
EVENT_HAS_PARAMETERS
(
XVECTOR
(
keys
)
->
contents
[
next_event
]
))
if
(
EVENT_HAS_PARAMETERS
(
AREF
(
keys
,
next_event
)
))
break
;
/* Handle special starting chars `*' and `@'. Also `-'. */
...
...
@@ -428,7 +428,7 @@ invoke it. If KEYS is omitted or nil, the return value of
Lisp_Object
event
,
tem
;
event
=
(
next_event
<
key_count
?
XVECTOR
(
keys
)
->
contents
[
next_event
]
?
AREF
(
keys
,
next_event
)
:
Qnil
);
if
(
EVENT_HAS_PARAMETERS
(
event
)
&&
(
tem
=
XCDR
(
event
),
CONSP
(
tem
))
...
...
@@ -647,13 +647,13 @@ invoke it. If KEYS is omitted or nil, the return value of
(
SYMBOLP
(
function
)
?
(
char
*
)
SDATA
(
SYMBOL_NAME
(
function
))
:
"command"
));
args
[
i
]
=
XVECTOR
(
keys
)
->
contents
[
next_event
++
];
args
[
i
]
=
AREF
(
keys
,
next_event
);
next_event
++
;
varies
[
i
]
=
-
1
;
/* Find the next parameterized event. */
while
(
next_event
<
key_count
&&
!
(
EVENT_HAS_PARAMETERS
(
XVECTOR
(
keys
)
->
contents
[
next_event
])))
&&
!
(
EVENT_HAS_PARAMETERS
(
AREF
(
keys
,
next_event
))))
next_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