chinese-cns11643-5
chinese-cns11643-6
chinese-cns11643-7
- japanese-jisx0208-1990
=jis-x0213-1-2000
=jis-x0213-2-2000
korean-ksc5601
- ;; chinese-gb12345
chinese-isoir165
katakana-jisx0201
hebrew-iso8859-8
+ japanese-jisx0208-1990
+ chinese-gb12345
latin-viscii
ethiopic-ucs
- ideograph-gt
+ =gt
=big5-cdp
=gt-k
ideograph-daikanwa-2
ideograph-daikanwa
- ideograph-cbeta
+ =cbeta
ideograph-hanziku-1
ideograph-hanziku-2
ideograph-hanziku-3
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"
(goto-char (point-min))
(while (re-search-forward "[ \t]+$" nil t)
(replace-match ""))
+ ;; from tabify.
+ (goto-char (point-min))
+ (while (re-search-forward "[ \t][ \t][ \t]*" nil t)
+ (let ((column (current-column))
+ (indent-tabs-mode t))
+ (delete-region (match-beginning 0) (point))
+ (indent-to column)))
(goto-char (point-max))
- (tabify (point-min)(point-max))
+ ;; (tabify (point-min)(point-max))
))
(defun insert-char-data-with-variant (char &optional printable