# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 900404417 0
# Node ID 6103b46f200a8445ac6efa04c068b505104a006e
# Parent  661d40b1f2f08358c6f2ffa18dd2c5d8cbe15d4d
Indent `restart-case', `handler-bind' and `restart-bind' correctly.

diff -r 661d40b1f2f0 -r 6103b46f200a lisp/emacs-lisp/cl-indent.el
--- 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