Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-28

[gnu-emacs] / src / keyboard.c

diff --git a/src/keyboard.c b/src/keyboard.c
index 77e7cf48139c9a40989de1a1598a29b6e1388bb4..a30819fe3cbf929a8f13a239cc47ef2219c5c5e9 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2508,7 +2508,7 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
 
       c = Faref (Vexecuting_macro, make_number (executing_macro_index));
       if (STRINGP (Vexecuting_macro)
-         && (XINT (c) & 0x80))
+         && (XINT (c) & 0x80) && (XUINT (c) <= 0xff))
        XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80));
 
       executing_macro_index++;