diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c4115376724..7af62b0ee41 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2014-05-02 Leo Liu <sdl.web@gmail.com> + + * emacs-lisp/cl-macs.el (cl-deftype): Fix indentation. + 2014-05-01 Glenn Morris <rgm@gnu.org> * allout-widgets.el (allout-widgets-tally) diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 1c163273b64..5640b1796c7 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))))) |