* emacs-lisp/cl-macs.el (cl-deftype): Fix indentation.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c411537672462d6f77ff6c71f788620c704f6d50..7af62b0ee4104ecc969e4d1f20aa980fe6add92f 100644 (file)
--- 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 1c163273b64deda15205d91e6e170a908e4b5ba9..5640b1796c7c18137b71d06cd7a6ff115e4bfeae 100644 (file)
--- 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)))))