chinese-cns11643-5
chinese-cns11643-6
chinese-cns11643-7
+ =jis-x0208-1990
=jis-x0213-1-2000
=jis-x0213-2-2000
korean-ksc5601
chinese-isoir165
katakana-jisx0201
hebrew-iso8859-8
- =jis-x0208-1990
chinese-gb12345
latin-viscii
ethiopic-ucs
=gt
- =big5-cdp
- =gt-k
ideograph-daikanwa-2
ideograph-daikanwa
=cbeta
ideograph-hanziku-10
ideograph-hanziku-11
ideograph-hanziku-12
- =cbeta
- =jef-china3
+ =big5
=big5-eten
- =big5))
+ =big5-cdp
+ =gt-k
+ =jef-china3))
(defun char-db-make-char-spec (char)
(let (ret char-spec)
)
((setq ret
(catch 'tag
- (let ((rest char-db-coded-charset-priority-list))
+ (let ((rest char-db-coded-charset-priority-list)
+ ccs)
(while rest
+ (setq ccs (charset-name
+ (find-charset (car rest))))
(if (setq ret
- (get-char-attribute char (car rest)))
- (throw 'tag (cons (car rest) ret)))
+ (encode-char char ccs
+ 'defined-only))
+ (throw 'tag (cons ccs ret)))
(setq rest (cdr rest))))))
(setq char-spec (list ret))
(dolist (ccs (delq (car ret) (charset-list)))
(if (and (or (charset-iso-final-char ccs)
(memq ccs
'(ideograph-daikanwa
+ =daikanwa-rev2
;; =gt-k
)))
- (setq ret (get-char-attribute char ccs)))
+ (setq ret (encode-char char ccs 'defined-only)))
(setq char-spec (cons (cons ccs ret) char-spec))))
(if (null char-spec)
(setq char-spec (split-char char)))
(setq key (car (car char-spec)))
(unless (memq key char-db-ignored-attributes)
(if (find-charset key)
- (if (get-char-attribute char key)
+ (if (encode-char char key 'defined-only)
(setq cal (cons key cal)))
(setq al (cons key al))))
(setq char-spec (cdr char-spec)))
=gt-pj-10
=gt-pj-11))
(setq ret (decode-char ccs code-point))
- (setq ret (get-char-attribute ret '=gt)))
+ (setq ret (encode-char ret '=gt 'defined-only)))
(decode-builtin-char '=gt ret))
(t
(decode-builtin-char ccs code-point))))
line-breaking))
(setq attributes (delq 'script attributes))
)
- (when (and (memq '=>ucs attributes)
- (setq value (get-char-attribute char '=>ucs)))
- (insert (format "(=>ucs\t\t. #x%04X)\t; %c%s"
- value (decode-char '=ucs value)
- line-breaking))
- (setq attributes (delq '=>ucs attributes))
- )
- (when (and (memq '=>ucs* attributes)
- (setq value (get-char-attribute char '=>ucs*)))
- (insert (format "(=>ucs*\t\t. #x%04X)\t; %c%s"
- value (decode-char '=ucs value)
- line-breaking))
- (setq attributes (delq '=>ucs* attributes))
- )
- (when (and (memq '=>ucs-gb attributes)
- (setq value (get-char-attribute char '=>ucs-gb)))
- (insert (format "(=>ucs-gb\t\t. #x%04X)\t; %c%s"
- value (decode-char '=ucs value)
- line-breaking))
- (setq attributes (delq '=>ucs-gb attributes))
- )
- (when (and (memq '=>ucs-cns attributes)
- (setq value (get-char-attribute char '=>ucs-cns)))
- (insert (format "(=>ucs-cns\t\t. #x%04X)\t; %c%s"
- value (decode-char 'ucs-cns value)
- line-breaking))
- (setq attributes (delq '=>ucs-cns attributes))
- )
- (when (and (memq '=>ucs-big5 attributes)
- (setq value (get-char-attribute char '=>ucs-big5)))
- (insert (format "(=>ucs-big5\t\t. #x%04X)\t; %c%s"
- value (decode-char 'ucs-big5 value)
- line-breaking))
- (setq attributes (delq '=>ucs-big5 attributes))
- )
- (when (and (memq '=>ucs-jis attributes)
- (setq value (get-char-attribute char '=>ucs-jis)))
- (insert (format "(=>ucs-jis\t\t. #x%04X)\t; %c%s"
- value (decode-char 'ucs-jis value)
- line-breaking))
- (setq attributes (delq '=>ucs-jis attributes))
- )
- (when (and (memq '=>ucs-ks attributes)
- (setq value (get-char-attribute char '=>ucs-ks)))
- (insert (format "(=>ucs-ks\t\t. #x%04X)\t; %c%s"
- value (decode-char 'ucs-ks value)
- line-breaking))
- (setq attributes (delq '=>ucs-ks attributes))
- )
+ (dolist (name '(=>ucs =>ucs*))
+ (when (and (memq name attributes)
+ (setq value (get-char-attribute char name)))
+ (insert (format "(%-18s . #x%04X)\t; %c%s"
+ name value (decode-char '=ucs value)
+ line-breaking))
+ (setq attributes (delq name attributes))))
+ ;; (when (and (memq '=>ucs* attributes)
+ ;; (setq value (get-char-attribute char '=>ucs*)))
+ ;; (insert (format "(=>ucs*\t\t. #x%04X)\t; %c%s"
+ ;; value (decode-char '=ucs value)
+ ;; line-breaking))
+ ;; (setq attributes (delq '=>ucs* attributes))
+ ;; )
+ (dolist (name '(=>ucs@gb =>ucs@cns =>ucs@jis =>ucs@ks =>ucs@big5))
+ (when (and (memq name attributes)
+ (setq value (get-char-attribute char name)))
+ (insert (format "(%-18s . #x%04X)\t; %c%s"
+ name value
+ (decode-char (intern
+ (concat "="
+ (substring
+ (symbol-name name) 2)))
+ value)
+ line-breaking))
+ (setq attributes (delq name attributes))
+ ))
+ (dolist (name '(=>ucs-gb =>ucs-cns =>ucs-jis =>ucs-ks =>ucs-big5))
+ (when (and (memq name attributes)
+ (setq value (get-char-attribute char name)))
+ (insert (format "(%-18s . #x%04X)\t; %c%s"
+ (intern
+ (concat "=>ucs@"
+ (substring (symbol-name name) 6)))
+ value
+ (decode-char (intern
+ (concat "=ucs@"
+ (substring
+ (symbol-name name) 6)))
+ value)
+ line-breaking))
+ (setq attributes (delq name attributes))))
+ ;; (when (and (memq '=>ucs-gb attributes)
+ ;; (setq value (get-char-attribute char '=>ucs-gb)))
+ ;; (insert (format "(=>ucs@gb\t\t. #x%04X)\t; %c%s"
+ ;; value (decode-char '=ucs@gb value)
+ ;; line-breaking))
+ ;; (setq attributes (delq '=>ucs-gb attributes))
+ ;; )
+ ;; (when (and (memq '=>ucs-cns attributes)
+ ;; (setq value (get-char-attribute char '=>ucs-cns)))
+ ;; (insert (format "(=>ucs@cns\t\t. #x%04X)\t; %c%s"
+ ;; value (decode-char '=ucs@cns value)
+ ;; line-breaking))
+ ;; (setq attributes (delq '=>ucs-cns attributes))
+ ;; )
+ ;; (when (and (memq '=>ucs-big5 attributes)
+ ;; (setq value (get-char-attribute char '=>ucs-big5)))
+ ;; (insert (format "(=>ucs-big5\t\t. #x%04X)\t; %c%s"
+ ;; value (decode-char 'ucs-big5 value)
+ ;; line-breaking))
+ ;; (setq attributes (delq '=>ucs-big5 attributes))
+ ;; )
+ ;; (when (and (memq '=>ucs-jis attributes)
+ ;; (setq value (get-char-attribute char '=>ucs-jis)))
+ ;; (insert (format "(=>ucs@jis\t\t. #x%04X)\t; %c%s"
+ ;; value (decode-char '=ucs@jis value)
+ ;; line-breaking))
+ ;; (setq attributes (delq '=>ucs-jis attributes))
+ ;; )
+ ;; (when (and (memq '=>ucs-ks attributes)
+ ;; (setq value (get-char-attribute char '=>ucs-ks)))
+ ;; (insert (format "(=>ucs-ks\t\t. #x%04X)\t; %c%s"
+ ;; value (decode-char 'ucs-ks value)
+ ;; line-breaking))
+ ;; (setq attributes (delq '=>ucs-ks attributes))
+ ;; )
(when (and (memq '->ucs attributes)
(setq value (get-char-attribute char '->ucs)))
(insert (format (if char-db-convert-obsolete-format
(while attributes
(setq name (car attributes))
(if (setq value (get-char-attribute char name))
- (cond ((eq name 'jisx0208-1978/4X)
+ (cond ((string-match "^=>ucs@" (symbol-name name))
+ (insert (format "(%-18s . #x%04X)\t; %c%s"
+ name value (decode-char '=ucs value)
+ line-breaking))
+ )
+ ((eq name 'jisx0208-1978/4X)
(insert (format "(%-18s . #x%04X)%s"
name value
line-breaking)))
(setq value (get-char-attribute char name)))
(insert
(format
- (cond ((memq name '(ideograph-daikanwa-2
- ideograph-daikanwa
+ (cond ((memq name '(ideograph-daikanwa
+ =daikanwa-rev1
+ =daikanwa-rev2
=gt =gt-k =cbeta))
(if has-long-ccs-name
"(%-26s . %05d)\t; %c%s"
projects / chise / xemacs-chise.git.1 / blobdiff