mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1998-07-14 08:20:17 +00:00
parent 8c05b76c93
commit 09a4d958b2
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/cl-indent.el
View file

@ -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