Mercurial > hg > xemacs-beta

comparison src/mule-coding.c @ 3084:aaf96f4ba612 ben-lisp-object-bp

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-11-22 07:19:31 by ben] fix crash printing iso2022 coding systems mule-coding.c: Fix crashes printing ISO2022 coding systems.
author ben
date Tue, 22 Nov 2005 07:19:32 +0000
parents 18bd0414af22
children 96ec8f16af45
comparison
equal deleted inserted replaced
3083:193188e494b2 3084:aaf96f4ba612
2641 print_internal (CHARSETP (charset) ? XCHARSET_NAME (charset) : charset, printcharfun, 0); 2641 print_internal (CHARSETP (charset) ? XCHARSET_NAME (charset) : charset, printcharfun, 0);
2642 if (XCODING_SYSTEM_ISO2022_FORCE_CHARSET_ON_OUTPUT (cs, i)) 2642 if (XCODING_SYSTEM_ISO2022_FORCE_CHARSET_ON_OUTPUT (cs, i))
2643 write_c_string (printcharfun, "(force)"); 2643 write_c_string (printcharfun, "(force)");
2644 } 2644 }
2645 2645
2646 #define FROB(prop) \ 2646 #define FROB(prop) \
2647 if (!NILP (iso2022_getprop (cs, prop))) \ 2647 if (!NILP (iso2022_getprop (cs, prop))) \
2648 { \ 2648 { \
2649 write_fmt_string (printcharfun, ", %s", prop); \ 2649 write_fmt_string_lisp (printcharfun, ", %s", 1, prop); \
2650 } 2650 }
2651 2651
2652 FROB (Qshort); 2652 FROB (Qshort);
2653 FROB (Qno_ascii_eol); 2653 FROB (Qno_ascii_eol);
2654 FROB (Qno_ascii_cntl); 2654 FROB (Qno_ascii_cntl);