diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-14 08:20:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-14 08:20:17 +0000 |
| commit | 531ae2568a6b02292d70ac4e7555a2773e306fe8 (patch) | |
| tree | a4ca27691cc751f4310ba467ac2470bf222cd424 /lisp | |
| parent | e9abde8d3f402f4a95bd3e765d78c89ffa01ba0b (diff) | |
| download | emacs-531ae2568a6b02292d70ac4e7555a2773e306fe8.tar.gz | |
Indent `restart-case', `handler-bind' and `restart-bind' correctly.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index dd5586dbd21..04f89c2b0ce 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -402,9 +402,10 @@ by `lisp-body-indent'." (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 @@ by `lisp-body-indent'." (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 |