From d0765091e17fbe96cf0261fec12f12594023d3cf Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 12 Aug 2016 14:31:15 -0700 Subject: [PATCH] Make named-builder macros indent like functions --- dotfiles/emacs.d/README.org | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index d1184b9f..e5d9fd08 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -431,10 +431,12 @@ the original macro (which is passed as the second argument to ~imalison:named-builder-builder~). #+BEGIN_SRC emacs-lisp (defmacro imalison:named-builder-builder (named-builder-name builder-name) - `(defmacro ,named-builder-name (function-name &rest args) - (cons 'imalison:named-build - (cons function-name - (cons (quote ,builder-name) args))))) + `(progn + (defmacro ,named-builder-name (function-name &rest args) + (cons 'imalison:named-build + (cons function-name + (cons (quote ,builder-name) args)))) + (put (quote ,named-builder-name) 'lisp-indent-function 1))) #+END_SRC ~imalison:named-builder~ runs ~imalison:named-builder-builder~ with the convention that original macro to modify is the concatenation of the