branch: master
commit dbcee946f462e0fe2aa26f2a9e7ff4784c9e0e70
Author: Pásztor János <[email protected]>
Commit: Pásztor János <[email protected]>
counsel.el: support universal argument for counsel-unicode-char
---
counsel.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/counsel.el b/counsel.el
index 832f22b..9f8a287 100644
--- a/counsel.el
+++ b/counsel.el
@@ -357,9 +357,9 @@ Update the minibuffer with the amount of lines collected
every
"History for `counsel-unicode-char'.")
;;;###autoload
-(defun counsel-unicode-char ()
+(defun counsel-unicode-char (&optional count)
"Insert a Unicode character at point."
- (interactive)
+ (interactive "p")
(let ((minibuffer-allow-text-properties t)
(ivy-sort-max-size (expt 256 6)))
(setq ivy-completion-beg (point))
@@ -374,7 +374,7 @@ Update the minibuffer with the amount of lines collected
every
(with-ivy-window
(delete-region ivy-completion-beg ivy-completion-end)
(setq ivy-completion-beg (point))
- (insert-char (get-text-property 0 'result char))
+ (insert-char (get-text-property 0 'result char)
count)
(setq ivy-completion-end (point))))
:history 'counsel-unicode-char-history
:sort t)))
