[elpa] master dcd0c50 80/90: counsel.el (counsel-unicode-char): Use action-style call

[Oleh Krehel]

branch: master
commit dcd0c50111c6848060d1c6a30baa47d0373444b1
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>

    counsel.el (counsel-unicode-char): Use action-style call
    
    Fixes #160
---
 counsel.el |   17 +++++++++--------
 1 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/counsel.el b/counsel.el
index 27ec9e7..947ac84 100644
--- a/counsel.el
+++ b/counsel.el
@@ -167,14 +167,15 @@
 (defun counsel-unicode-char ()
   "Insert a Unicode character at point."
   (interactive)
-  (let* ((minibuffer-allow-text-properties t)
-         (char (ivy-read "Unicode name: "
-                         (mapcar (lambda (x)
-                                   (propertize
-                                    (format "% -60s%c" (car x) (cdr x))
-                                    'result (cdr x)))
-                                 (ucs-names)))))
-    (insert-char (get-text-property 0 'result char))))
+  (let ((minibuffer-allow-text-properties t))
+    (ivy-read "Unicode name: "
+              (mapcar (lambda (x)
+                        (propertize
+                         (format "% -60s%c" (car x) (cdr x))
+                         'result (cdr x)))
+                      (ucs-names))
+              :action (lambda (char)
+                        (insert-char (get-text-property 0 'result char))))))
 
 (declare-function cider-sync-request:complete "ext:cider-client")
 ;;;###autoload