`->ucs' and each coded-charset.
(what-char-definition): Don't call `char-db-update-comment'.
)
(when (setq cell (assq '->ucs data))
(setq cell (cdr cell))
)
(when (setq cell (assq '->ucs data))
(setq cell (cdr cell))
- (insert (format "(->ucs\t\t. #x%04X)
+ (insert (format "(->ucs\t\t. #x%04X)\t; %c
+ cell (decode-char 'ucs cell)))
(setq data (del-alist '->ucs data))
)
(when (setq cell (assq 'general-category data))
(setq data (del-alist '->ucs data))
)
(when (setq cell (assq 'general-category data))
(format
(if has-long-ccs-name
(if (eq ret (find-charset 'ideograph-daikanwa))
(format
(if has-long-ccs-name
(if (eq ret (find-charset 'ideograph-daikanwa))
"
)
(if (eq ret (find-charset 'ideograph-daikanwa))
"
)
(if (eq ret (find-charset 'ideograph-daikanwa))
((= (charset-dimension ret) 3)
#x808080)
(t 0)))
((= (charset-dimension ret) 3)
#x808080)
(t 0)))
+ (cdr cell))
+ (decode-builtin-char ret (cdr cell)))))
((string-match "^->" (symbol-name (car cell)))
(insert
(format "(%-18s %s)
((string-match "^->" (symbol-name (car cell)))
(insert
(format "(%-18s %s)
(condition-case err
(progn
(insert-char-data-with-variant char)
(condition-case err
(progn
(insert-char-data-with-variant char)
- (char-db-update-comment)
+ ;; (char-db-update-comment)
(set-buffer-modified-p nil)
(view-mode the-buf (lambda (buf)
(set-window-configuration
(set-buffer-modified-p nil)
(view-mode the-buf (lambda (buf)
(set-window-configuration