Mercurial > emacs
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)")) |