Parent Directory | Revision Log | Patch
revision 1.52 by kfstorm, Wed Feb 12 11:08:24 2003 UTC | revision 1.53 by monnier, Sat Feb 22 22:19:31 2003 UTC | |
---|---|---|
# | Line 119 macro before appending to it. */) | Line 119 macro before appending to it. */) |
119 | { | { |
120 | Lisp_Object c; | Lisp_Object c; |
121 | c = Faref (current_kboard->Vlast_kbd_macro, make_number (i)); | c = Faref (current_kboard->Vlast_kbd_macro, make_number (i)); |
122 | if (cvt && INTEGERP (c) && (XINT (c) & 0x80)) | if (cvt && NATNUMP (c) && (XFASTINT (c) & 0x80)) |
123 | c = XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80)); | XSETFASTINT (c, CHAR_META | (XFASTINT (c) & ~0x80)); |
124 | current_kboard->kbd_macro_buffer[i] = c; | current_kboard->kbd_macro_buffer[i] = c; |
125 | } | } |
126 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |