From a8a76673a660fab0318e4b0ba01758fad284e1fd Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 4 Feb 2004 17:09:04 +0000
Subject: [PATCH] (insert-char-attributes): Fold long line in non-special
 element of list in default feature.

---
 lisp/utf-2000/char-db-util.el |   10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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 ")")
-- 
1.7.10.4