Mercurial > emacs

changeset 22756:6103b46f200a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Indent `restart-case', `handler-bind' and `restart-bind' correctly.
author Richard M. Stallman <rms@gnu.org>
date Tue, 14 Jul 1998 08:20:17 +0000
parents 661d40b1f2f0
children c4e492a7cb07
files lisp/emacs-lisp/cl-indent.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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