Mercurial > emacs

comparison src/macros.c @ 49913:eabc4e7986e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fstart_kbd_macro): Remove redundant assignment.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 22 Feb 2003 22:19:31 +0000
parents 282c490f6cd4
children 695cf19ef79e
comparison
equal deleted inserted replaced
49912:e9f8f5a9cef6 49913:eabc4e7986e9
117 cvt = STRINGP (current_kboard->Vlast_kbd_macro); 117 cvt = STRINGP (current_kboard->Vlast_kbd_macro);
118 for (i = 0; i < len; i++) 118 for (i = 0; i < len; i++)
119 { 119 {
120 Lisp_Object c; 120 Lisp_Object c;
121 c = Faref (current_kboard->Vlast_kbd_macro, make_number (i)); 121 c = Faref (current_kboard->Vlast_kbd_macro, make_number (i));
122 if (cvt && INTEGERP (c) && (XINT (c) & 0x80)) 122 if (cvt && NATNUMP (c) && (XFASTINT (c) & 0x80))
123 c = XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80)); 123 XSETFASTINT (c, CHAR_META | (XFASTINT (c) & ~0x80));
124 current_kboard->kbd_macro_buffer[i] = c; 124 current_kboard->kbd_macro_buffer[i] = c;
125 } 125 }
126 126
127 current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_buffer + len; 127 current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_buffer + len;
128 current_kboard->kbd_macro_end = current_kboard->kbd_macro_ptr; 128 current_kboard->kbd_macro_end = current_kboard->kbd_macro_ptr;