summaryrefslogtreecommitdiff
path: root/src/macros.c
diff options
context:
space:
mode:
authorDmitry Antipov <dmantipov@yandex.ru>2012-08-13 07:44:27 +0400
committerDmitry Antipov <dmantipov@yandex.ru>2012-08-13 07:44:27 +0400
commit7864a3f729e9bd78f17deefec428a6db41742c82 (patch)
tree35be2792b8dc2716b43b096ff81d4f107427a158 /src/macros.c
parent4c31be6153255dfe29a0231253263ea0d9011ac3 (diff)
downloademacs-7864a3f729e9bd78f17deefec428a6db41742c82.tar.gz
Use KSET for write access to Lisp_Object members of struct kboard.
* keyboard.h (KSET): New macro. * callint.c, category.c, frame.c, keyboard.c, keyboard.h, macros.c: * msdos.c, nsfns.m, nsterm.m, term.c, w32fns.c, w32term.c, xfns.c: * xterm.c: Adjust users.
Diffstat (limited to 'src/macros.c')
-rw-r--r--src/macros.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/src/macros.c b/src/macros.c
index 8a4361fc1f6..d74d12e6158 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -127,7 +127,7 @@ macro before appending to it. */)
message ("Appending to kbd macro...");
}
- KVAR (current_kboard, defining_kbd_macro) = Qt;
+ KSET (current_kboard, defining_kbd_macro, Qt);
return Qnil;
}
@@ -137,12 +137,12 @@ macro before appending to it. */)
void
end_kbd_macro (void)
{
- KVAR (current_kboard, defining_kbd_macro) = Qnil;
+ KSET (current_kboard, defining_kbd_macro, Qnil);
update_mode_lines++;
- KVAR (current_kboard, Vlast_kbd_macro)
- = make_event_array ((current_kboard->kbd_macro_end
- - current_kboard->kbd_macro_buffer),
- current_kboard->kbd_macro_buffer);
+ KSET (current_kboard, Vlast_kbd_macro,
+ make_event_array ((current_kboard->kbd_macro_end
+ - current_kboard->kbd_macro_buffer),
+ current_kboard->kbd_macro_buffer));
}
DEFUN ("end-kbd-macro", Fend_kbd_macro, Send_kbd_macro, 0, 2, "p",
@@ -330,7 +330,7 @@ each iteration of the macro. Iteration stops if LOOPFUNC returns nil. */)
executing_kbd_macro = final;
executing_kbd_macro_index = 0;
- KVAR (current_kboard, Vprefix_arg) = Qnil;
+ KSET (current_kboard, Vprefix_arg, Qnil);
if (!NILP (loopfunc))
{