diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-14 08:20:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-14 08:20:17 +0000 |
| commit | 09a4d958b20244f2f04f1fff5894d7a6070bcaa0 (patch) | |
| tree | 6791c6206683a4c69e0ac175b59df898827419b8 /lisp/emacs-lisp | |
| parent | 8c05b76c934316746d8370380fa3b146db90dd0d (diff) | |
| download | emacs-09a4d958b20244f2f04f1fff5894d7a6070bcaa0.tar.gz emacs-09a4d958b20244f2f04f1fff5894d7a6070bcaa0.tar.bz2 emacs-09a4d958b20244f2f04f1fff5894d7a6070bcaa0.zip | |
Indent `restart-case', `handler-bind' and `restart-bind' correctly.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |