Make named-builder macros indent like functions

This commit is contained in:
Ivan Malison 2016-08-12 14:31:15 -07:00
parent 7652cdc067
commit d0765091e1
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -431,10 +431,12 @@ the original macro (which is passed as the second argument to
~imalison:named-builder-builder~). ~imalison:named-builder-builder~).
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defmacro imalison:named-builder-builder (named-builder-name builder-name) (defmacro imalison:named-builder-builder (named-builder-name builder-name)
`(defmacro ,named-builder-name (function-name &rest args) `(progn
(cons 'imalison:named-build (defmacro ,named-builder-name (function-name &rest args)
(cons function-name (cons 'imalison:named-build
(cons (quote ,builder-name) args))))) (cons function-name
(cons (quote ,builder-name) args))))
(put (quote ,named-builder-name) 'lisp-indent-function 1)))
#+END_SRC #+END_SRC
~imalison:named-builder~ runs ~imalison:named-builder-builder~ with the ~imalison:named-builder~ runs ~imalison:named-builder-builder~ with the
convention that original macro to modify is the concatenation of the convention that original macro to modify is the concatenation of the