comparison lisp/international/mule-diag.el @ 23582:a96404fd053a

(describe-coding-system): Describe all flags.
author Andreas Schwab <schwab@suse.de>
date Fri, 30 Oct 1998 10:55:15 +0000
parents 5effd15f2a18
children 782215de9b98
comparison
equal deleted inserted replaced
23581:6b883bd6398d 23582:a96404fd053a
182 (if (aref flags 6) (princ ", ASCII@CNTL")) 182 (if (aref flags 6) (princ ", ASCII@CNTL"))
183 (princ (if (aref flags 7) ", 7-bit" ", 8-bit")) 183 (princ (if (aref flags 7) ", 7-bit" ", 8-bit"))
184 (if (aref flags 8) (princ ", use-locking-shift")) 184 (if (aref flags 8) (princ ", use-locking-shift"))
185 (if (aref flags 9) (princ ", use-single-shift")) 185 (if (aref flags 9) (princ ", use-single-shift"))
186 (if (aref flags 10) (princ ", use-roman")) 186 (if (aref flags 10) (princ ", use-roman"))
187 (if (aref flags 10) (princ ", use-old-jis")) 187 (if (aref flags 11) (princ ", use-old-jis"))
188 (if (aref flags 11) (princ ", no-ISO6429")) 188 (if (aref flags 12) (princ ", no-ISO6429"))
189 (if (aref flags 13) (princ ", init-bol"))
190 (if (aref flags 14) (princ ", designation-bol"))
191 (if (aref flags 15) (princ ", convert-unsafe"))
192 (if (aref flags 16) (princ ", accept-latin-extra-code"))
189 (princ ".")) 193 (princ "."))
190 ((eq type 3) 194 ((eq type 3)
191 (princ " (Big5)")) 195 (princ " (Big5)"))
192 ((eq type 4) 196 ((eq type 4)
193 (princ " (do conversion by CCL program)")) 197 (princ " (do conversion by CCL program)"))