+(defun char-db-insert-alist (alist &optional readable column)
+ (unless column
+ (setq column (current-column)))
+ (let ((line-breaking
+ (concat "\n" (make-string (1+ column) ?\ )))
+ name value
+ ret al cal key
+ lbs cell rest separator)
+ (insert "(")
+ (while alist
+ (setq name (car (car alist))
+ value (cdr (car alist)))
+ (cond ((eq name 'char)
+ (insert "(char . ")
+ (if (setq ret (condition-case nil
+ (define-char value)
+ (error nil)))
+ (progn
+ (setq al nil
+ cal nil)
+ (while value
+ (setq key (car (car value)))
+ (if (find-charset key)
+ (setq cal (cons key cal))
+ (setq al (cons key al)))
+ (setq value (cdr value)))
+ (insert-char-attributes ret
+ readable
+ (or al 'none) cal))
+ (insert (prin1-to-string value)))
+ (insert ")")
+ (insert line-breaking))
+ ((consp value)
+ (insert (format "(%-18s " name))
+ (setq lbs (concat "\n" (make-string (current-column) ?\ )))
+ (while (consp value)
+ (setq cell (car value))
+ (if (and (consp cell)
+ (consp (car cell))
+ (setq ret (condition-case nil
+ (define-char cell)
+ (error nil)))
+ )
+ (progn
+ (setq rest cell
+ al nil
+ cal nil)
+ (while rest
+ (setq key (car (car rest)))
+ (if (find-charset key)
+ (setq cal (cons key cal))
+ (setq al (cons key al)))
+ (setq rest (cdr rest)))
+ (if separator
+ (insert lbs))
+ (insert-char-attributes ret
+ readable
+ al cal)
+ (setq separator lbs))
+ (if separator
+ (insert separator))
+ (insert (prin1-to-string cell))
+ (setq separator " "))
+ (setq value (cdr value)))
+ (insert ")")
+ (insert line-breaking))
+ (t
+ (insert (format "(%-18s . %S)%s"
+ name value
+ line-breaking))))
+ (setq alist (cdr alist))))
+ (insert ")"))
+