Mercurial > emacs
comparison lisp/emacs-lisp/cl-indent.el @ 37764:b1fec0dc2aa1
(toplevel): indent the :method sub-form of `defgeneric' correctly.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Wed, 16 May 2001 21:13:21 +0000 |
| parents | 3061b65a9897 |
| children | f2ff22369238 |
comparison
equal
deleted
inserted
replaced
| 37763:c30ed1e1a615 | 37764:b1fec0dc2aa1 |
|---|---|
| 420 (let* . let) | 420 (let* . let) |
| 421 (compiler-let . let) ;barf | 421 (compiler-let . let) ;barf |
| 422 (handler-bind . let) (restart-bind . let) | 422 (handler-bind . let) (restart-bind . let) |
| 423 (locally 1) | 423 (locally 1) |
| 424 ;(loop ...) | 424 ;(loop ...) |
| 425 (:method (&lambda &body)) ; in `defgeneric' | |
| 425 (multiple-value-bind ((&whole 6 &rest 1) 4 &body)) | 426 (multiple-value-bind ((&whole 6 &rest 1) 4 &body)) |
| 426 (multiple-value-call (4 &body)) | 427 (multiple-value-call (4 &body)) |
| 427 (multiple-value-prog1 1) | 428 (multiple-value-prog1 1) |
| 428 (multiple-value-setq (4 2)) | 429 (multiple-value-setq (4 2)) |
| 429 (multiple-value-setf . multiple-value-setq) | 430 (multiple-value-setf . multiple-value-setq) |