(Fgarbage_collect): Update call to truncate_undo_list.

[gnu-emacs] / src / macros.c

diff --git a/src/macros.c b/src/macros.c
index 2b50a491ca47e366603d299dab3792b046732287..09ae87b0a593d931d99f8c929764e0a9bde4e264 100644 (file)
--- 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;
        }
 
@@ -392,7 +392,9 @@ syms_of_macros ()
   defsubr (&Sstore_kbd_macro_event);
 
   DEFVAR_KBOARD ("defining-kbd-macro", defining_kbd_macro,
-                doc: /* Non-nil while a keyboard macro is being defined.  Don't set this!  */);
+                doc: /* Non-nil while a keyboard macro is being defined.  Don't set this!
+The value is the symbol `append' while appending to the definition of
+an existing macro.  */);
 
   DEFVAR_LISP ("executing-macro", &Vexecuting_macro,
               doc: /* Currently executing keyboard macro (string or vector); nil if none executing.  */);
@@ -406,3 +408,6 @@ syms_of_macros ()
   DEFVAR_KBOARD ("last-kbd-macro", Vlast_kbd_macro,
                 doc: /* Last kbd macro defined, as a string or vector; nil if none defined.  */);
 }
+
+/* arch-tag: d293fcc9-2266-4163-9198-7fa0de12ec9e
+   (do not change this comment) */