Skip to content

GitLab

Commit 86c1cf23 authored by Karl Heuer's avatar Karl Heuer
Browse files

(check_mark, Fcall_interactively): Use assignment, not initialization.

parent c99fc30f
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 3 deletions
src/callint.c
View file @ 86c1cf23
...@@ -142,7 +142,8 @@ char *callint_argfuns[] ...@@ -142,7 +142,8 @@ char *callint_argfuns[]
static void static void
check_mark () check_mark ()
{ {
Lisp_Object tem = Fmarker_buffer (current_buffer->mark); Lisp_Object tem;
tem = Fmarker_buffer (current_buffer->mark);
if (NILP (tem) || (XBUFFER (tem) != current_buffer)) if (NILP (tem) || (XBUFFER (tem) != current_buffer))
error ("The mark is not set now"); error ("The mark is not set now");
if (!NILP (Vtransient_mark_mode) && NILP (Vmark_even_if_inactive) if (!NILP (Vtransient_mark_mode) && NILP (Vmark_even_if_inactive)
...@@ -321,9 +322,9 @@ Otherwise, this is done only if an arg is read using the minibuffer.") ...@@ -321,9 +322,9 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
} }
else if (*string == '@') else if (*string == '@')
{ {
Lisp_Object event = Lisp_Object event;
XVECTOR (this_command_keys)->contents[next_event];
event = XVECTOR (this_command_keys)->contents[next_event];
if (EVENT_HAS_PARAMETERS (event) if (EVENT_HAS_PARAMETERS (event)
&& XTYPE (event = XCONS (event)->cdr) == Lisp_Cons && XTYPE (event = XCONS (event)->cdr) == Lisp_Cons
&& XTYPE (event = XCONS (event)->car) == Lisp_Cons && XTYPE (event = XCONS (event)->car) == Lisp_Cons
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment