From 09a4d958b20244f2f04f1fff5894d7a6070bcaa0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 14 Jul 1998 08:20:17 +0000 Subject: [PATCH] Indent `restart-case', `handler-bind' and `restart-bind' correctly. --- lisp/emacs-lisp/cl-indent.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.2