From 157e8cfdd80c31850b70b0c286d421a1c2094e5c Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Fri, 2 May 2014 19:11:35 +0800 Subject: [PATCH] * emacs-lisp/cl-macs.el (cl-deftype): Fix indentation. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/cl-macs.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c411537672..7af62b0ee4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-05-02 Leo Liu + + * emacs-lisp/cl-macs.el (cl-deftype): Fix indentation. + 2014-05-01 Glenn Morris * allout-widgets.el (allout-widgets-tally) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 1c163273b6..5640b1796c 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2585,7 +2585,7 @@ non-nil value, that slot cannot be set via `setf'. (defmacro cl-deftype (name arglist &rest body) "Define NAME as a new data type. The type name can then be used in `cl-typecase', `cl-check-type', etc." - (declare (debug cl-defmacro) (doc-string 3)) + (declare (debug cl-defmacro) (doc-string 3) (indent 2)) `(cl-eval-when (compile load eval) (put ',name 'cl-deftype-handler (cl-function (lambda (&cl-defs '('*) ,@arglist) ,@body))))) -- 2.20.1