colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix imalison:dynamic-let-advise-around

Browse Source
This commit is contained in:
Ivan Malison 2016-05-04 10:18:45 -07:00
parent 80da7a550f
commit 5c7bd61668
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/emacs.d/init.el
View File

@ -256,9 +256,10 @@
(let ,forms (let ,forms
(apply orig-func args)))) (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) `(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)))) (apply orig-func args))))
(defun imalison:uuid () (defun imalison:uuid ()