diff options
| author | Kenichi Handa | 1998-05-21 01:46:39 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-05-21 01:46:39 +0000 |
| commit | 3ad911d8a01ba613600a767c6bcca65a7c8d56fb (patch) | |
| tree | 6777b8fa90dd98d3f06b63644a5ef6ed47114115 | |
| parent | f4b643a15f008baaa072f526611d7d427611886e (diff) | |
| download | emacs-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.el | 3 |
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)) |