(insert-char-attributes): Fold long line in non-special element of

[chise/xemacs-chise.git] / lisp / utf-2000 / char-db-util.el

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index b07da54..502cfd1 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -1008,9 +1008,15 @@
                                                 readable
                                                 al cal)
                         (setq separator lbs))
+                    (setq ret (prin1-to-string cell))
                     (if separator
-                        (insert separator))
-                    (insert (prin1-to-string cell))
+                        (if (< (+ (current-column)
+                                  (length ret)
+                                  (length separator))
+                               76)
+                            (insert separator)
+                          (insert lbs)))
+                    (insert ret)
                     (setq separator " "))
                   (setq value (cdr value)))
                 (insert ")")