From 5c7bd6166810c57722f00af40cbc8ad18c73bf7a Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 4 May 2016 10:18:45 -0700 Subject: [PATCH] fix imalison:dynamic-let-advise-around --- dotfiles/emacs.d/init.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index fe50f847..449c85de 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -256,9 +256,10 @@ (let ,forms (apply orig-func args)))) -(defmacro imalison:dynamic-let-advise-around (name getter) +(defmacro imalison:dynamic-let-advise-around (name &rest getters) `(defun ,name (orig-func &rest args) - (let ,(funcall getter) + (let ,(cl-loop for pair in getters + collect `(,(car pair) (funcall ,(cadr pair)))) (apply orig-func args)))) (defun imalison:uuid ()