From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 22 Feb 2003 22:19:31 +0000 (+0000)
Subject: (Fstart_kbd_macro): Remove redundant assignment.
X-Git-Tag: ttn-vms-21-2-B4~11090
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3499aebffc659adfdb1ae813178c3358e0e46345;p=emacs.git

(Fstart_kbd_macro): Remove redundant assignment.
---

diff --git a/src/macros.c b/src/macros.c
index 2b50a491ca4..1b23f4b3c8c 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -119,8 +119,8 @@ macro before appending to it. */)
 	{
 	  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;
 	}