[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/uni-confusables f9e53f5 08/11: Don't put everything on
From: |
Stefan Monnier |
Subject: |
[elpa] externals/uni-confusables f9e53f5 08/11: Don't put everything on one long line, because that may make Emacs slow |
Date: |
Sat, 28 Nov 2020 17:44:59 -0500 (EST) |
branch: externals/uni-confusables
commit f9e53f530c5278cf0aa50f927d9dcd2f46c8ccdd
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
---
gen-confusables.el | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/gen-confusables.el b/gen-confusables.el
index 557d91d..ead747d 100644
--- a/gen-confusables.el
+++ b/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
- [elpa] branch externals/uni-confusables created (now 4116aeb), Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables 0acb93f 02/11: Clean up copyright notices., Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables e1bb697 03/11: * packages/uni-confusables/uni-confusables.el: Add ELPA metadata., Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables 1d4fad9 04/11: * packages/uni-confusables/uni-confusables.el: Fix up comment convention., Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables b483e7d 05/11: Update uni-confusables license to only refer to local files, Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables 157ab59 06/11: Add provide-statements to ada-ref-man and uni-confusables, Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables 09fc8d5 01/11: Remove version numbers in packages/ directory, Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables f9e53f5 08/11: Don't put everything on one long line, because that may make Emacs slow,
Stefan Monnier <=
- [elpa] externals/uni-confusables c09528a 09/11: Regenerate uni-confusables.el, Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables 4116aeb 11/11: * .gitignore: New file, Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables 9313758 07/11: Add provide also when generating uni-confusables.el, Stefan Monnier, 2020/11/28
- [elpa] externals/uni-confusables d535475 10/11: Bump uni-confusables version number, Stefan Monnier, 2020/11/28