[elpa] master ad9a061 2/3: Don't put everything on one long line, because that may make Emacs slow

[Lars Ingebrigtsen]

branch: master
commit ad9a061a3f41ca3b6ff0c472dc87e1a0098f522b
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Don't put everything on one long line, because that may make Emacs slow
---
 packages/uni-confusables/gen-confusables.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/packages/uni-confusables/gen-confusables.el 
b/packages/uni-confusables/gen-confusables.el
index 557d91d..ead747d 100644
--- a/packages/uni-confusables/gen-confusables.el
+++ b/packages/uni-confusables/gen-confusables.el
@@ -55,7 +55,7 @@
             (set-char-table-range
              table
              (reader from)
-             (concat (mapcar 'reader (split-string to))))))))))
+             (concat (mapcar #'reader (split-string to))))))))))
 
 (defun gen-confusables-write (file)
   (interactive "FDumped filename: \n")
@@ -88,7 +88,14 @@
            (lambda (k v) (setq props (cons k (cons v props))))
            ourtable)
 
-          (insert (format "(let ((k nil) (v nil) (ranges '%S))\n" props))
+          (insert (format "(let ((k nil) (v nil) (ranges '(\n"))
+         (let ((i 0))
+           (dolist (p props)
+             (insert " ")
+             (prin1 p (current-buffer))
+             (when (zerop (mod (setq i (1+ i)) 10))
+               (insert "\n"))))
+         (insert ")))\n")
           (insert (format "
   (while ranges
      (setq k (pop ranges)
@@ -116,7 +123,7 @@
 
 (provide 'uni-confusables)
 
-;;; uni-confusables.el ends here"))))
+;;; uni-confusables.el ends here\n"))))
 
 (provide 'gen-confusables)
 ;;; gen-confusables.el ends here