line-breaking))
(setq attributes (delq 'script attributes))
)
+ (when (and (memq '<-denotational attributes)
+ (setq value (get-char-attribute char '<-denotational))
+ (null (cdr value))
+ (setq value (encode-char (car value) 'ucs 'defined-only)))
+ (insert (format "(%-18s . #x%04X)\t; %c%s"
+ '=>ucs value (decode-char 'ucs value)
+ line-breaking))
+ (setq attributes (delq '<-denotational attributes)))
(dolist (name '(=>ucs =>ucs*))
(when (and (memq name attributes)
(setq value (get-char-attribute char name)))