Mercurial > emacs

changeset 26889:8ce2101d81c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iso-2022-7bit, iso-2022-7bit-ss2 iso-2022-7bit-lock, iso-2022-7bit-lock-ss2, iso-2022-8bit-ss2, x-ctext): Give `composition' property t.
author Kenichi Handa <handa@m17n.org>
date Wed, 15 Dec 1999 00:41:44 +0000
parents 1f32811873b7
children 4cd9407a4683
files lisp/international/mule-conf.el
diffstat 1 files changed, 12 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-conf.el	Wed Dec 15 00:41:22 1999 +0000
+++ b/lisp/international/mule-conf.el	Wed Dec 15 00:41:44 1999 +0000
@@ -262,21 +262,24 @@
  "ISO 2022 based 7-bit encoding using only G0"
  '((ascii t) nil nil nil
    short ascii-eol ascii-cntl seven)
- '((safe-charsets . t)))
+ '((safe-charsets . t)
+   (composition . t)))
 
 (make-coding-system
  'iso-2022-7bit-ss2 2 ?$
  "ISO 2022 based 7-bit encoding using SS2 for 96-charset"
  '((ascii t) nil t nil
    short ascii-eol ascii-cntl seven nil single-shift)
- '((safe-charsets . t)))
+ '((safe-charsets . t)
+   (composition . t)))
 
 (make-coding-system
  'iso-2022-7bit-lock 2 ?&
  "ISO-2022 coding system using Locking-Shift for 96-charset"
  '((ascii t) t nil nil
    nil ascii-eol ascii-cntl seven locking-shift)
- '((safe-charsets . t)))
+ '((safe-charsets . t)
+   (composition . t)))
 
 (define-coding-system-alias 'iso-2022-int-1 'iso-2022-7bit-lock)
 
@@ -293,7 +296,8 @@
  '((safe-charsets ascii japanese-jisx0208 japanese-jisx0208-1978 latin-jisx0201
 		  korean-ksc5601 chinese-gb2312 chinese-cns11643-1
 		  chinese-cns11643-2 chinese-cns11643-3 chinese-cns11643-4
-		  chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7)))
+		  chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7)
+   (composition . t)))
 
 (define-coding-system-alias 'iso-2022-cjk 'iso-2022-7bit-lock-ss2)
 
@@ -302,7 +306,8 @@
  "ISO 2022 based 8-bit encoding using SS2 for 96-charset"
  '((ascii t) nil t nil
    nil ascii-eol ascii-cntl nil nil single-shift)
- '((safe-charsets . t)))
+ '((safe-charsets . t)
+   (composition . t)))
 
 (make-coding-system
  'x-ctext 2 ?x
@@ -311,7 +316,8 @@
    nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil
    init-bol nil nil)
  '((safe-charsets . t)
-   (mime-charset . x-ctext)))
+   (mime-charset . x-ctext)
+   (composition . t)))
 
 (make-coding-system
  'iso-safe 2 ?-