aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1998-05-21 01:46:39 +0000
committerKenichi Handa1998-05-21 01:46:39 +0000
commit3ad911d8a01ba613600a767c6bcca65a7c8d56fb (patch)
tree6777b8fa90dd98d3f06b63644a5ef6ed47114115
parentf4b643a15f008baaa072f526611d7d427611886e (diff)
downloademacs-3ad911d8a01ba613600a767c6bcca65a7c8d56fb.tar.gz
emacs-3ad911d8a01ba613600a767c6bcca65a7c8d56fb.zip
(make-coding-system): If ISO2022 based
8-bit coding system allows alternative designation, set the coding category to `coding-category-iso-8-else'.
-rw-r--r--lisp/international/mule.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 9929ddbcac9..76792e6197d 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -584,7 +584,8 @@ a value of `safe-charsets' in PLIST."
584 (if no-alternative-designation 584 (if no-alternative-designation
585 'coding-category-iso-7-tight 585 'coding-category-iso-7-tight
586 'coding-category-iso-7)) 586 'coding-category-iso-7))
587 (if no-initial-designation 587 (if (or no-initial-designation
588 (not no-alternative-designation))
588 'coding-category-iso-8-else 589 'coding-category-iso-8-else
589 (if (and (charsetp g1-designation) 590 (if (and (charsetp g1-designation)
590 (= (charset-dimension g1-designation) 2)) 591 (= (charset-dimension g1-designation) 2))