summaryrefslogtreecommitdiff
path: root/src/macros.c
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2003-02-22 22:19:31 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2003-02-22 22:19:31 +0000
commit3499aebffc659adfdb1ae813178c3358e0e46345 (patch)
tree842aad37f3a7358f4ee7a546d9dc9bc82da53114 /src/macros.c
parent80951487d7f0d977ce8d9511d43d525eb985e66d (diff)
downloademacs-3499aebffc659adfdb1ae813178c3358e0e46345.tar.gz
(Fstart_kbd_macro): Remove redundant assignment.
Diffstat (limited to 'src/macros.c')
-rw-r--r--src/macros.c4
1 files 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;
}