From 3499aebffc659adfdb1ae813178c3358e0e46345 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 22 Feb 2003 22:19:31 +0000 Subject: [PATCH] (Fstart_kbd_macro): Remove redundant assignment. --- src/macros.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; } -- 2.39.2