[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master ad9a061 2/3: Don't put everything on one long line, becaus
From: |
Lars Ingebrigtsen |
Subject: |
[elpa] master ad9a061 2/3: Don't put everything on one long line, because that may make Emacs slow |
Date: |
Sat, 10 Oct 2020 22:50:36 -0400 (EDT) |
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