comparison lisp/emacs-lisp/cl-indent.el @ 22756:6103b46f200a

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

22755:661d40b1f2f0

	   (dolist      ((&whole 4 2 1) &body))
	   (dotimes . dolist)
	   (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)
	   ;; `else-body' style
	   (if          (nil nil &body))
	   ;; single-else style (then and else equally indented)
	   (if          (&rest nil))
	   ;; (lambda     ((&whole 4 &rest 1) &body))
	   (lambda      ((&whole 4 &rest 1)
			 &rest lisp-indent-function-lambda-hack))
	   (let         ((&whole 4 &rest (&whole 1 1 2)) &body))
	   (let* . let)
	   (compiler-let . let) ;barf
	   (locally 1)
	   ;(loop ...)
	   (multiple-value-bind 
			((&whole 6 &rest 1) 4 &body))
	   (multiple-value-call

22756:6103b46f200a

	   (dolist      ((&whole 4 2 1) &body))
	   (dotimes . dolist)
	   (eval-when	1)
	   (flet        ((&whole 4 &rest (&whole 1 (&whole 4 &rest 1) &body))
			 &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)
	   (if          (&rest nil))
	   ;; (lambda     ((&whole 4 &rest 1) &body))
	   (lambda      ((&whole 4 &rest 1)
			 &rest lisp-indent-function-lambda-hack))
	   (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 
			((&whole 6 &rest 1) 4 &body))
	   (multiple-value-call