emacs: lisp/international/mule-conf.el comparison

comparison lisp/international/mule-conf.el @ 89091:d520353b835a

(emacs-mule, iso-2022-7bit) (iso-2022-7bit-ss2, iso-2022-7bit-lock, iso-2022-8bit-ss2) (compound-text, ctext-no-compositions): Remove :charset-list.

author	Dave Love <fx@gnu.org>
date	Sun, 08 Sep 2002 19:47:56 +0000
parents	ec87f7e069f1
children	1365cbd31156

comparison

equal deleted inserted replaced

-:8f9443dae115
+:d520353b835a
 ;;   ""
 ;;   :dimension 1
 ;;   :code-space [128 255]
 ;;   :code-offset #x3FFF80)
 ;;
+;; (define-charset 'eight-bit
+;;   ""
+;;   :dimension 1
+;;   :code-space [128 255]
+;;   :code-offset #x3FFF80)
+;;
 ;; We now set :docstring, :short-name, and :long-name properties.
 (put-charset-property
 'ascii :docstring "ASCII (ISO646 IRV)")
 (put-charset-property
 :emacs-mule-id 225
 :code-space [33 126]
 :unify-map "is13194"
 :code-offset #x180000)
+(define-charset 'devanagari-glyph
+"Glyphs for Devanagari script.  Subset of `indian-glyph'."
+:short-name "Devanagari glyph"
+:code-space [0 255]
+:code-offset #x180100)
+;; These would be necessary for supporting the complete set of Indian
+;; scripts.  See also fontset.el.
+;; (let ((i 0))
+;;   (dolist (script '(sanskrit bengali tamil telugu assamese
+;; 	            oriya kannada malayalam gujarati punjabi))
+;;     (define-charset (intern (concat (symbol-name script) "-glyph"))
+;;       (concat "Glyphs for " (capitalize (symbol-name script))
+;; 	      " script.  Subset of `indian-glyph'.")
+;;       :short-name (concat (capitalize (symbol-name script)) " glyph")
+;;       :code-space [0 255]
+;;       :code-offset (+ #x180100 (* 256 i)))
+;;     (setq i (1+ i))))
 (define-charset 'indian-glyph
 "Glyphs for Indian characters."
 :short-name "Indian glyph"
 :iso-final-char ?4
 :emacs-mule-id 240
 :code-space [32 127 32 127]
 :code-offset #x180100)
-(define-charset 'devanagari-glyph
-"Glyphs for Devanagari script.  Subset of `indian-glyph'."
-:short-name "Devanagari glyph"
-:code-space [0 255]
-:code-offset #x180100)
 ;; Actual Glyph for 1-column width.
 (define-charset 'indian-1-column
 "Indian charset for 1-column width glyphs"
 :short-name "Indian 1-col"
 :long-name "Unicode subset (U+0100..U+24FF)"
 :iso-final-char ?1
 :emacs-mule-id 244
 :code-space [#x20 #x7F #x20 #x7F]
 :code-offset #x100)
+(define-charset 'unicode-bmp
+"Unicode Basic Multilingual Plane"
+:short-name "Unicode BMP"
+:code-space [0 255 0 255]
+:subset '(unicode 0 #xFFFF 0))
 (define-charset 'unicode-bmp
 "Unicode Basic Multilingual Plane"
 :short-name "Unicode BMP"
 :code-space [0 255 0 255]
 (define-coding-system-alias 'dos 'undecided-dos)
 (define-coding-system-alias 'mac 'undecided-mac)
 (define-coding-system 'iso-latin-1
 "ISO 2022 based 8-bit encoding for Latin-1 (MIME:ISO-8859-1)."
-:coding-type 'iso-2022
+:coding-type 'charset
 :mnemonic ?1
-:charset-list '(ascii latin-iso8859-1)
+:charset-list '(iso-8859-1)
-:designation [ascii latin-iso8859-1 nil nil]
 :mime-charset 'iso-8859-1)
 (define-coding-system-alias 'iso-8859-1 'iso-latin-1)
 (define-coding-system-alias 'latin-1 'iso-latin-1)
 ;; Coding systems not specific to each language environment.
 (define-coding-system 'emacs-mule
 "Emacs 21 internal format used in buffer and string."
 :coding-type 'emacs-mule
-:charset-list 'emacs-mule
 :mnemonic ?M)
 (define-coding-system 'utf-8
 "UTF-8."
 :coding-type 'utf-8
 (define-coding-system 'iso-2022-7bit
 "ISO 2022 based 7-bit encoding using only G0."
 :coding-type 'iso-2022
 :mnemonic ?J
-:charset-list 'iso-2022
 :designation [(ascii t) nil nil nil]
 :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation composition))
 (define-coding-system 'iso-2022-7bit-ss2
 "ISO 2022 based 7-bit encoding using SS2 for 96-charset."
 :coding-type 'iso-2022
 :mnemonic ?$
-:charset-list 'iso-2022
 :designation [(ascii 94) nil (nil 96) nil]
 :flags '(short ascii-at-eol ascii-at-cntl 7-bit
 		 designation single-shift composition))
 (define-coding-system 'iso-2022-7bit-lock
 "ISO-2022 coding system using Locking-Shift for 96-charset."
 :coding-type 'iso-2022
 :mnemonic ?&
-:charset-list 'iso-2022
 :designation [(ascii 94) (nil 96) nil nil]
 :flags '(ascii-at-eol ascii-at-cntl 7-bit
 			designation locking-shift composition))
 (define-coding-system-alias 'iso-2022-int-1 'iso-2022-7bit-lock)
 (define-coding-system 'iso-2022-8bit-ss2
 "ISO 2022 based 8-bit encoding using SS2 for 96-charset."
 :coding-type 'iso-2022
 :mnemonic ?@
-:charset-list 'iso-2022
 :designation [(ascii 94) nil (nil 96) nil]
 :flags '(ascii-at-eol ascii-at-cntl designation single-shift composition))
 (define-coding-system 'compound-text
 "Compound text based generic encoding for decoding unknown messages.
 This coding system does not support ICCCM Extended Segments."
 :coding-type 'iso-2022
 :mnemonic ?x
-:charset-list 'iso-2022
 :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil]
 :flags '(ascii-at-eol ascii-at-cntl
 			designation locking-shift single-shift composition)
 ;; Fixme: this isn't a valid MIME charset and has to be
 ;; special-cased elsewhere  -- fx
 "Compound text based generic encoding for decoding unknown messages.
 Like `compound-text', but does not produce escape sequences for compositions."
 :coding-type 'iso-2022
 :mnemonic ?x
-:charset-list 'iso-2022
 :designation [(ascii 94) (latin-iso8859-1 katakana-jisx0201 96) nil nil]
 :flags '(ascii-at-eol ascii-at-cntl
 			designation locking-shift single-shift))
 (define-coding-system 'compound-text-with-extensions

Mercurial > emacs

comparison lisp/international/mule-conf.el @ 89091:d520353b835a