comparison lisp/mule/mule-charset.el @ 4072:aa28d959af41

[xemacs-hg @ 2007-07-22 22:03:29 by aidan] Add support for non-ISO2022 8 bit fixed-width coding-systems
author aidan
date Sun, 22 Jul 2007 22:04:14 +0000
parents a0d288cfcfb5
children 68d1ca56cffa
comparison
equal deleted inserted replaced
4071:d607d13fca67 4072:aa28d959af41
114 (charset-property charset 'ccl-program)) 114 (charset-property charset 'ccl-program))
115 115
116 (defun charset-bytes (charset) 116 (defun charset-bytes (charset)
117 "Useless in XEmacs, returns 1." 117 "Useless in XEmacs, returns 1."
118 1) 118 1)
119
120 (define-obsolete-function-alias 'charset-columns 'charset-width) ;; 19990409
121 (define-obsolete-function-alias 'charset-final 'charset-iso-final-char) ;; 19990409
122 (define-obsolete-function-alias 'charset-graphic 'charset-iso-graphic-plane) ;; 19990409
123 (define-obsolete-function-alias 'charset-doc-string 'charset-description) ;; 19990409
124 119
125 ;;;; Define setf methods for all settable Charset properties 120 ;;;; Define setf methods for all settable Charset properties
126 121
127 (defsetf charset-registry set-charset-registry) 122 (defsetf charset-registry set-charset-registry)
128 (defsetf charset-ccl-program set-charset-ccl-program) 123 (defsetf charset-ccl-program set-charset-ccl-program)
353 ;; arabic-digit "MuleArabic-0" 348 ;; arabic-digit "MuleArabic-0"
354 ;; arabic-1-column "MuleArabic-1" 349 ;; arabic-1-column "MuleArabic-1"
355 ;; arabic-2-column "MuleArabic-2" 350 ;; arabic-2-column "MuleArabic-2"
356 ;; ipa "MuleIPA" 351 ;; ipa "MuleIPA"
357 ;; ethiopic "Ethiopic-Unicode" 352 ;; ethiopic "Ethiopic-Unicode"
358 ;; ascii-right-to-left "ISO8859-1"
359 ;; indian-is13194 "IS13194-Devanagari" 353 ;; indian-is13194 "IS13194-Devanagari"
360 ;; indian-2-column "MuleIndian-2" 354 ;; indian-2-column "MuleIndian-2"
361 ;; indian-1-column "MuleIndian-1" 355 ;; indian-1-column "MuleIndian-1"
362 ;; lao "MuleLao-1" 356 ;; lao "MuleLao-1"
363 ;; tibetan "MuleTibetan-2" 357 ;; tibetan "MuleTibetan-2"