From: tomo <tomo>
Date: Wed, 4 Feb 2004 17:09:04 +0000 (+0000)
Subject: (insert-char-attributes): Fold long line in non-special element of
X-Git-Tag: r21-4-14-chise-0_21-23^2~74
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a8a76673a660fab0318e4b0ba01758fad284e1fd;p=chise%2Fxemacs-chise.git

(insert-char-attributes): Fold long line in non-special element of
list in default feature.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index b07da54..502cfd1 100644
--- 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 ")")