From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 14 Jul 1998 08:20:17 +0000 (+0000)
Subject: Indent `restart-case', `handler-bind' and `restart-bind' correctly.
X-Git-Tag: emacs-20.3~323
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09a4d958b20244f2f04f1fff5894d7a6070bcaa0;p=emacs.git

Indent `restart-case', `handler-bind' and `restart-bind' correctly.
---

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