/[emacs]/emacs/lisp/international/mule-conf.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-conf.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.62.2.32 by fx, Sun Sep 8 00:02:15 2002 UTC revision 1.62.2.33 by fx, Sun Sep 8 19:47:56 2002 UTC
# Line 74  Line 74 
74  ;;   :code-space [128 255]  ;;   :code-space [128 255]
75  ;;   :code-offset #x3FFF80)  ;;   :code-offset #x3FFF80)
76  ;;  ;;
77    ;; (define-charset 'eight-bit
78    ;;   ""
79    ;;   :dimension 1
80    ;;   :code-space [128 255]
81    ;;   :code-offset #x3FFF80)
82    ;;
83  ;; We now set :docstring, :short-name, and :long-name properties.  ;; We now set :docstring, :short-name, and :long-name properties.
84    
85  (put-charset-property  (put-charset-property
# Line 801  Line 807 
807    :unify-map "is13194"    :unify-map "is13194"
808    :code-offset #x180000)    :code-offset #x180000)
809    
810    (define-charset 'devanagari-glyph
811      "Glyphs for Devanagari script.  Subset of `indian-glyph'."
812      :short-name "Devanagari glyph"
813      :code-space [0 255]
814      :code-offset #x180100)
815    
816    ;; These would be necessary for supporting the complete set of Indian
817    ;; scripts.  See also fontset.el.
818    
819    ;; (let ((i 0))
820    ;;   (dolist (script '(sanskrit bengali tamil telugu assamese
821    ;;                  oriya kannada malayalam gujarati punjabi))
822    ;;     (define-charset (intern (concat (symbol-name script) "-glyph"))
823    ;;       (concat "Glyphs for " (capitalize (symbol-name script))
824    ;;            " script.  Subset of `indian-glyph'.")
825    ;;       :short-name (concat (capitalize (symbol-name script)) " glyph")
826    ;;       :code-space [0 255]
827    ;;       :code-offset (+ #x180100 (* 256 i)))
828    ;;     (setq i (1+ i))))
829    
830  (define-charset 'indian-glyph  (define-charset 'indian-glyph
831    "Glyphs for Indian characters."    "Glyphs for Indian characters."
832    :short-name "Indian glyph"    :short-name "Indian glyph"
# Line 809  Line 835 
835    :code-space [32 127 32 127]    :code-space [32 127 32 127]
836    :code-offset #x180100)    :code-offset #x180100)
837    
 (define-charset 'devanagari-glyph  
   "Glyphs for Devanagari script.  Subset of `indian-glyph'."  
   :short-name "Devanagari glyph"  
   :code-space [0 255]  
   :code-offset #x180100)  
   
   
838  ;; Actual Glyph for 1-column width.  ;; Actual Glyph for 1-column width.
839  (define-charset 'indian-1-column  (define-charset 'indian-1-column
840    "Indian charset for 1-column width glyphs"    "Indian charset for 1-column width glyphs"
# Line 891  Line 910 
910    :code-space [0 255 0 255]    :code-space [0 255 0 255]
911    :subset '(unicode 0 #xFFFF 0))    :subset '(unicode 0 #xFFFF 0))
912    
913    (define-charset 'unicode-bmp
914      "Unicode Basic Multilingual Plane"
915      :short-name "Unicode BMP"
916      :code-space [0 255 0 255]
917      :subset '(unicode 0 #xFFFF 0))
918    
919  (define-charset 'ethiopic  (define-charset 'ethiopic
920    "Ethiopic characters for Amharic and Tigrigna."    "Ethiopic characters for Amharic and Tigrigna."
921    :short-name "Ethiopic"    :short-name "Ethiopic"
# Line 1074  is treated as a character." Line 1099  is treated as a character."
1099    
1100  (define-coding-system 'iso-latin-1  (define-coding-system 'iso-latin-1
1101    "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)."    "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)."
1102    :coding-type 'iso-2022    :coding-type 'charset
1103    :mnemonic ?1    :mnemonic ?1
1104    :charset-list '(ascii latin-iso8859-1)    :charset-list '(iso-8859-1)
   :designation [ascii latin-iso8859-1 nil nil]  
1105    :mime-charset 'iso-8859-1)    :mime-charset 'iso-8859-1)
1106    
1107  (define-coding-system-alias 'iso-8859-1 'iso-latin-1)  (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
# Line 1088  is treated as a character." Line 1112  is treated as a character."
1112  (define-coding-system 'emacs-mule  (define-coding-system 'emacs-mule
1113   "Emacs 21 internal format used in buffer and string."   "Emacs 21 internal format used in buffer and string."
1114   :coding-type 'emacs-mule   :coding-type 'emacs-mule
  :charset-list 'emacs-mule  
1115   :mnemonic ?M)   :mnemonic ?M)
1116    
1117  (define-coding-system 'utf-8  (define-coding-system 'utf-8
# Line 1150  is treated as a character." Line 1173  is treated as a character."
1173    "ISO 2022 based 7-bit encoding using only G0."    "ISO 2022 based 7-bit encoding using only G0."
1174    :coding-type 'iso-2022    :coding-type 'iso-2022
1175    :mnemonic ?J    :mnemonic ?J
   :charset-list 'iso-2022  
1176    :designation [(ascii t) nil nil nil]    :designation [(ascii t) nil nil nil]
1177    :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation composition))    :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation composition))
1178    
# Line 1158  is treated as a character." Line 1180  is treated as a character."
1180    "ISO 2022 based 7-bit encoding using SS2 for 96-charset."    "ISO 2022 based 7-bit encoding using SS2 for 96-charset."
1181    :coding-type 'iso-2022    :coding-type 'iso-2022
1182    :mnemonic ?$    :mnemonic ?$
   :charset-list 'iso-2022  
1183    :designation [(ascii 94) nil (nil 96) nil]    :designation [(ascii 94) nil (nil 96) nil]
1184    :flags '(short ascii-at-eol ascii-at-cntl 7-bit    :flags '(short ascii-at-eol ascii-at-cntl 7-bit
1185                   designation single-shift composition))                   designation single-shift composition))
# Line 1167  is treated as a character." Line 1188  is treated as a character."
1188    "ISO-2022 coding system using Locking-Shift for 96-charset."    "ISO-2022 coding system using Locking-Shift for 96-charset."
1189    :coding-type 'iso-2022    :coding-type 'iso-2022
1190    :mnemonic ?&    :mnemonic ?&
   :charset-list 'iso-2022  
1191    :designation [(ascii 94) (nil 96) nil nil]    :designation [(ascii 94) (nil 96) nil nil]
1192    :flags '(ascii-at-eol ascii-at-cntl 7-bit    :flags '(ascii-at-eol ascii-at-cntl 7-bit
1193                          designation locking-shift composition))                          designation locking-shift composition))
# Line 1199  is treated as a character." Line 1219  is treated as a character."
1219    "ISO 2022 based 8-bit encoding using SS2 for 96-charset."    "ISO 2022 based 8-bit encoding using SS2 for 96-charset."
1220    :coding-type 'iso-2022    :coding-type 'iso-2022
1221    :mnemonic ?@    :mnemonic ?@
   :charset-list 'iso-2022  
1222    :designation [(ascii 94) nil (nil 96) nil]    :designation [(ascii 94) nil (nil 96) nil]
1223    :flags '(ascii-at-eol ascii-at-cntl designation single-shift composition))    :flags '(ascii-at-eol ascii-at-cntl designation single-shift composition))
1224    
# Line 1209  is treated as a character." Line 1228  is treated as a character."
1228  This coding system does not support ICCCM Extended Segments."  This coding system does not support ICCCM Extended Segments."
1229    :coding-type 'iso-2022    :coding-type 'iso-2022
1230    :mnemonic ?x    :mnemonic ?x
   :charset-list 'iso-2022  
1231    :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil]    :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil]
1232    :flags '(ascii-at-eol ascii-at-cntl    :flags '(ascii-at-eol ascii-at-cntl
1233                          designation locking-shift single-shift composition)                          designation locking-shift single-shift composition)
# Line 1231  This coding system does not support ICCC Line 1249  This coding system does not support ICCC
1249  Like `compound-text', but does not produce escape sequences for compositions."  Like `compound-text', but does not produce escape sequences for compositions."
1250    :coding-type 'iso-2022    :coding-type 'iso-2022
1251    :mnemonic ?x    :mnemonic ?x
   :charset-list 'iso-2022  
1252    :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil]    :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil]
1253    :flags '(ascii-at-eol ascii-at-cntl    :flags '(ascii-at-eol ascii-at-cntl
1254                          designation locking-shift single-shift))                          designation locking-shift single-shift))

Legend:
Removed from v.1.62.2.32  
changed lines
  Added in v.1.62.2.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26