diff options
| author | Richard M. Stallman | 1998-07-10 03:20:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-07-10 03:20:14 +0000 |
| commit | f8f34fa23d98857a12027159bb5558a7e15ef14e (patch) | |
| tree | ca0d8e34ad2a895a17b4885bc4a60b01c3984181 | |
| parent | 3fd00dcb428281d57a65872fba2c5ab9745a01de (diff) | |
| download | emacs-f8f34fa23d98857a12027159bb5558a7e15ef14e.tar.gz emacs-f8f34fa23d98857a12027159bb5558a7e15ef14e.zip | |
Indent `handler-case' correctly.
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index 4bcc7111f0d..dd5586dbd21 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el | |||
| @@ -402,6 +402,7 @@ by `lisp-body-indent'." | |||
| 402 | (eval-when 1) | 402 | (eval-when 1) |
| 403 | (flet ((&whole 4 &rest (&whole 1 (&whole 4 &rest 1) &body)) | 403 | (flet ((&whole 4 &rest (&whole 1 (&whole 4 &rest 1) &body)) |
| 404 | &body)) | 404 | &body)) |
| 405 | (handler-case (4 &rest (&whole 2 (&whole 4 &rest 1) &body))) | ||
| 405 | (labels . flet) | 406 | (labels . flet) |
| 406 | (macrolet . flet) | 407 | (macrolet . flet) |
| 407 | ;; `else-body' style | 408 | ;; `else-body' style |