diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-21 14:29:17 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-21 14:29:17 -0700 |
| commit | cb0cea52c1c39f32dab158c04489a0586ba745aa (patch) | |
| tree | 3c7de5ca3f6c523837f3056e35ef8926ca631d07 | |
| parent | 1eeb90de8630fb99d08490c2781f5b3e13aea78c (diff) | |
| download | dotfiles-cb0cea52c1c39f32dab158c04489a0586ba745aa.tar.gz | |
rename ignored var
| -rw-r--r-- | .emacs.d/init-spw.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index aaf0eb0c..00865f94 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -48,17 +48,22 @@ add places the library might be available to `load-path'." (defmacro spw/bind-command-with-cycling (bindings generator &optional on-exit map) (list 'spw/bind-command-with-cycling* (spw/expand-binding-pairs bindings) - `(lambda (_ret-val) + `(lambda (_ignore) ,generator) `(lambda () ,on-exit) map)) -(defmacro spw/bind-command-with-ret-val-cycling (bindings &optional generator on-exit map) +(cl-defmacro spw/bind-command-with-ret-val-cycling + (bindings + &optional + (generator '(spw/buffer-ring-cycle-lambda)) + on-exit + map) (list 'spw/bind-command-with-cycling* (spw/expand-binding-pairs bindings) `(lambda (ret-val) - ,(or generator '(spw/buffer-ring-cycle-lambda))) + ,generator) `(lambda () ,on-exit) map)) |