procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Leo Liu 2014-05-02 19:11:35 +08:00
parent d136f18462
commit 157e8cfdd8
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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> 2014-05-01 Glenn Morris <rgm@gnu.org>
* allout-widgets.el (allout-widgets-tally) * allout-widgets.el (allout-widgets-tally)

2
lisp/emacs-lisp/cl-macs.el
View file

@ -2585,7 +2585,7 @@ non-nil value, that slot cannot be set via `setf'.
(defmacro cl-deftype (name arglist &rest body) (defmacro cl-deftype (name arglist &rest body)
"Define NAME as a new data type. "Define NAME as a new data type.
The type name can then be used in `cl-typecase', `cl-check-type', etc." 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) `(cl-eval-when (compile load eval)
(put ',name 'cl-deftype-handler (put ',name 'cl-deftype-handler
(cl-function (lambda (&cl-defs '('*) ,@arglist) ,@body))))) (cl-function (lambda (&cl-defs '('*) ,@arglist) ,@body)))))