/[emacs]/emacs/src/macros.c
ViewVC logotype

Diff of /emacs/src/macros.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26