Use named-builder to build prefix-alternatives

This commit is contained in:
Ivan Malison 2016-08-10 17:00:22 -07:00
parent a67eaab1d1
commit ebbf363baa
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -499,7 +499,7 @@ Prefix alternatives is a macro that builds an interactive function
that selects one of a collection of functions that are provided to the
macro based on the value of the prefix argument.
#+BEGIN_SRC emacs-lisp
(defmacro imalison:prefix-alternatives-lambda (&rest alternatives)
(defmacro imalison:prefix-alternatives-fn (&rest alternatives)
`(lambda (arg)
(interactive "p")
(let ((function
@ -513,8 +513,7 @@ macro based on the value of the prefix argument.
(setq current-prefix-arg nil)
(call-interactively function))))
(imalison:named-builder-builder imalison:prefix-alternatives
imalison:prefix-alternatives-lambda)
(imalison:named-builder imalison:prefix-alternatives)
#+END_SRC
*** Use Package Wrapper With Local Load Path Support
#+BEGIN_SRC emacs-lisp