[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master dc250bd 008/399: counsel.el (counsel-unicode-char): Don't
From: |
Oleh Krehel |
Subject: |
[elpa] master dc250bd 008/399: counsel.el (counsel-unicode-char): Don't sort every time |
Date: |
Sat, 20 Jul 2019 14:56:37 -0400 (EDT) |
branch: master
commit dc250bd7b577cefadbe89856f2e5e36ae17aa4ed
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>
counsel.el (counsel-unicode-char): Don't sort every time
Re #1204
---
counsel.el | 30 +++++++++++++++++-------------
1 file changed, 17 insertions(+), 13 deletions(-)
diff --git a/counsel.el b/counsel.el
index 5c4183e..7cde99c 100644
--- a/counsel.el
+++ b/counsel.el
@@ -4447,19 +4447,23 @@ Candidates comprise `counsel--unicode-names', which
see.")
"Insert COUNT copies of a Unicode character at point.
COUNT defaults to 1."
(interactive "p")
- (let ((ivy-sort-max-size (expt 256 6)))
- (setq ivy-completion-beg (point))
- (setq ivy-completion-end (point))
- (ivy-read "Unicode name: " counsel--unicode-table
- :history 'counsel-unicode-char-history
- :sort t
- :action (lambda (name)
- (with-ivy-window
- (delete-region ivy-completion-beg ivy-completion-end)
- (setq ivy-completion-beg (point))
- (insert-char (get-text-property 0 'code name) count)
- (setq ivy-completion-end (point))))
- :caller 'counsel-unicode-char)))
+ (setq ivy-completion-beg (point))
+ (setq ivy-completion-end (point))
+ (unless (listp counsel--unicode-table)
+ (setq counsel--unicode-table
+ (sort
+ (all-completions "" counsel--unicode-table)
+ (ivy--sort-function 'counsel-unicode-char))))
+ (ivy-read "Unicode name: " counsel--unicode-table
+ :history 'counsel-unicode-char-history
+ :sort t
+ :action (lambda (name)
+ (with-ivy-window
+ (delete-region ivy-completion-beg ivy-completion-end)
+ (setq ivy-completion-beg (point))
+ (insert-char (get-text-property 0 'code name) count)
+ (setq ivy-completion-end (point))))
+ :caller 'counsel-unicode-char))
;;** `counsel-colors'
(defun counsel-colors-action-insert-hex (color)
- [elpa] master updated (64d03d9 -> 33689c1), Oleh Krehel, 2019/07/20
- [elpa] master b4492a3 002/399: counsel.el (counsel-git-checkout-action): Quote branch names, Oleh Krehel, 2019/07/20
- [elpa] master 100bd21 001/399: counsel.el (counsel-M-x): Optionally expand aliases, Oleh Krehel, 2019/07/20
- [elpa] master 08dd58b 003/399: ivy.el (ivy--regex-fuzzy): Don't allow newlines in wildcards, Oleh Krehel, 2019/07/20
- [elpa] master 70ad031 004/399: doc/Changelog.org: Update path to CSS, Oleh Krehel, 2019/07/20
- [elpa] master 596461e 005/399: counsel.el (counsel-grep-use-swiper-p): New defcustom, Oleh Krehel, 2019/07/20
- [elpa] master 6017cc8 006/399: ivy.el (ivy-read): Keep only one action for one key, Oleh Krehel, 2019/07/20
- [elpa] master dc250bd 008/399: counsel.el (counsel-unicode-char): Don't sort every time,
Oleh Krehel <=
- [elpa] master b000b0a 007/399: ivy.el (ivy--recompute-index): Speed up, Oleh Krehel, 2019/07/20
- [elpa] master c2eb4b5 009/399: ivy.el (ivy--kill-buffer-action): Integrate with ivy-switch-buffer-kill, Oleh Krehel, 2019/07/20
- [elpa] master f631d75 013/399: swiper.el (swiper-font-lock-exclude): Add xref--xref-buffer-mode, Oleh Krehel, 2019/07/20
- [elpa] master 3773c26 015/399: swiper.el (swiper--current-window-start): Add docstring, Oleh Krehel, 2019/07/20
- [elpa] master da85d1e 016/399: ivy.el: Require TRAMP earlier, Oleh Krehel, 2019/07/20
- [elpa] master 98b70a7 011/399: swiper.el (swiper--update-input-ivy): Don't recenter when non-graphical, Oleh Krehel, 2019/07/20
- [elpa] master e86cf2e 010/399: counsel.el (counsel-require-program): Change arg meaning, Oleh Krehel, 2019/07/20
- [elpa] master 007d672 012/399: swiper.el (swiper--update-input-ivy): Use display-graphic-p, Oleh Krehel, 2019/07/20
- [elpa] master 686cf5a 014/399: swiper.el (swiper--action): Fix for emacs -nw, Oleh Krehel, 2019/07/20
- [elpa] master b1ac725 017/399: ivy.el (ivy-initial-inputs-alist): Now a defcustom., Oleh Krehel, 2019/07/20