Mercurial > emacs
diff lisp/emacs-lisp/cl-indent.el @ 22756:6103b46f200a
Indent `restart-case', `handler-bind' and `restart-bind' correctly.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 14 Jul 1998 08:20:17 +0000 |
parents | 776e56dbde3c |
children | 77090a500417 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-indent.el Tue Jul 14 08:15:51 1998 +0000 +++ b/lisp/emacs-lisp/cl-indent.el Tue Jul 14 08:20:17 1998 +0000 @@ -402,9 +402,10 @@ (eval-when 1) (flet ((&whole 4 &rest (&whole 1 (&whole 4 &rest 1) &body)) &body)) - (handler-case (4 &rest (&whole 2 (&whole 4 &rest 1) &body))) (labels . flet) (macrolet . flet) + (handler-case (4 &rest (&whole 2 (&whole 4 &rest 1) &body))) + (restart-case . handler-case) ;; `else-body' style (if (nil nil &body)) ;; single-else style (then and else equally indented) @@ -415,6 +416,7 @@ (let ((&whole 4 &rest (&whole 1 1 2)) &body)) (let* . let) (compiler-let . let) ;barf + (handler-bind . let) (restart-bind . let) (locally 1) ;(loop ...) (multiple-value-bind