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.

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))
         {