# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1045952371 0
# Node ID eabc4e7986e9f5c4b20d2970f59dc0eb52071c11
# Parent  e9f8f5a9cef6c8ca2cc64e9431faf1bd71232514
(Fstart_kbd_macro): Remove redundant assignment.

diff -r e9f8f5a9cef6 -r eabc4e7986e9 src/macros.c
--- a/src/macros.c	Sat Feb 22 22:18:42 2003 +0000
+++ b/src/macros.c	Sat Feb 22 22:19:31 2003 +0000
@@ -119,8 +119,8 @@
 	{
 	  Lisp_Object c;
 	  c = Faref (current_kboard->Vlast_kbd_macro, make_number (i));
-	  if (cvt && INTEGERP (c) && (XINT (c) & 0x80))
-	    c = XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80));
+	  if (cvt && NATNUMP (c) && (XFASTINT (c) & 0x80))
+	    XSETFASTINT (c, CHAR_META | (XFASTINT (c) & ~0x80));
 	  current_kboard->kbd_macro_buffer[i] = c;
 	}