diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-10 03:20:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-10 03:20:14 +0000 |
| commit | f8f34fa23d98857a12027159bb5558a7e15ef14e (patch) | |
| tree | ca0d8e34ad2a895a17b4885bc4a60b01c3984181 /lisp/emacs-lisp | |
| parent | 3fd00dcb428281d57a65872fba2c5ab9745a01de (diff) | |
| download | emacs-f8f34fa23d98857a12027159bb5558a7e15ef14e.tar.gz emacs-f8f34fa23d98857a12027159bb5558a7e15ef14e.tar.bz2 emacs-f8f34fa23d98857a12027159bb5558a7e15ef14e.zip | |
Indent `handler-case' correctly.
Diffstat (limited to 'lisp/emacs-lisp')
| -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'." (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 |