# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 999682726 0
# Node ID 73d05c66ef70ad8f142434de91435c52415e7402
# Parent  f739913258e7e7043f46e004428c006c1065763f
(store_kbd_macro_char): Fix computation of kbd_macro_end.

diff -r f739913258e7 -r 73d05c66ef70 src/macros.c
--- a/src/macros.c	Wed Sep 05 08:20:35 2001 +0000
+++ b/src/macros.c	Wed Sep 05 09:38:46 2001 +0000
@@ -177,27 +177,25 @@
 store_kbd_macro_char (c)
      Lisp_Object c;
 {
-  if (!NILP (current_kboard->defining_kbd_macro))
+  struct kboard *kb = current_kboard;
+
+  if (!NILP (kb->defining_kbd_macro))
     {
-      if ((current_kboard->kbd_macro_ptr
-	   - current_kboard->kbd_macro_buffer)
-	  == current_kboard->kbd_macro_bufsize)
+      if (kb->kbd_macro_ptr - kb->kbd_macro_buffer == kb->kbd_macro_bufsize)
 	{
-	  int offset = (current_kboard->kbd_macro_ptr
-			- current_kboard->kbd_macro_buffer);
-	  current_kboard->kbd_macro_bufsize *= 2;
-	  current_kboard->kbd_macro_buffer
-	    = (Lisp_Object *)xrealloc (current_kboard->kbd_macro_buffer,
-				       (current_kboard->kbd_macro_bufsize
-					* sizeof (Lisp_Object)));
-	  current_kboard->kbd_macro_ptr
-	    = current_kboard->kbd_macro_buffer + offset;
-	  current_kboard->kbd_macro_end
-	    = (current_kboard->kbd_macro_buffer
-	       + current_kboard->kbd_macro_bufsize);
+	  int ptr_offset, end_offset, nbytes;
+	  
+	  ptr_offset = kb->kbd_macro_ptr - kb->kbd_macro_buffer;
+	  end_offset = kb->kbd_macro_end - kb->kbd_macro_buffer;
+	  kb->kbd_macro_bufsize *= 2;
+	  nbytes = kb->kbd_macro_bufsize * sizeof *kb->kbd_macro_buffer;
+	  kb->kbd_macro_buffer
+	    = (Lisp_Object *) xrealloc (kb->kbd_macro_buffer, nbytes);
+	  kb->kbd_macro_ptr = kb->kbd_macro_buffer + ptr_offset;
+	  kb->kbd_macro_end = kb->kbd_macro_buffer + end_offset;
 	}
       
-      *current_kboard->kbd_macro_ptr++ = c;
+      *kb->kbd_macro_ptr++ = c;
     }
 }