[elpa] externals/ivy-hydra 8383dd6 248/395: * counsel.el: Unquote lambda actions

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit 8383dd613adb065cc1c0c25f49efe9483ede54e3
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    * counsel.el: Unquote lambda actions
---
 counsel.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/counsel.el b/counsel.el
index 60ff8a1..5b147ca 100644
--- a/counsel.el
+++ b/counsel.el
@@ -2279,10 +2279,10 @@ 
https://www.freedesktop.org/wiki/Specifications/desktop-bookmark-spec";))
 
 (ivy-set-actions
  'counsel-recentf
- '(("j" find-file-other-window "other window")
+ `(("j" find-file-other-window "other window")
    ("f" find-file-other-frame "other frame")
    ("x" counsel-find-file-extern "open externally")
-   ("d" (lambda (file) (setq recentf-list (delete file recentf-list)))
+   ("d" ,(lambda (file) (setq recentf-list (delete file recentf-list)))
     "delete from recentf")))
 
 (defun counsel-recentf-candidates ()
@@ -2471,12 +2471,12 @@ current value of `default-directory'."
             :action #'dired))
 
 (ivy-set-actions 'counsel-bookmarked-directory
-                 '(("j" dired-other-window "other window")
+                 `(("j" dired-other-window "other window")
                    ("x" counsel-find-file-extern "open externally")
                    ("r" counsel-find-file-as-root "open as root")
-                   ("f" (lambda (dir)
-                          (let ((default-directory dir))
-                            (call-interactively #'find-file)))
+                   ("f" ,(lambda (dir)
+                           (let ((default-directory dir))
+                             (call-interactively #'find-file)))
                     "find-file")))
 
 ;;** `counsel-file-register'