diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-22 04:42:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-22 04:42:48 +0000 |
| commit | f0d527fcb74b7bb77ab6f2ac159c4ad9842abf76 (patch) | |
| tree | 8886ab422ec8375ebb636b7173ebb06bd5c843a9 /lisp/emacs-lisp | |
| parent | 6a97049b56c73351d169fa1a6a9a39b57a8886ad (diff) | |
| download | emacs-f0d527fcb74b7bb77ab6f2ac159c4ad9842abf76.tar.gz emacs-f0d527fcb74b7bb77ab6f2ac159c4ad9842abf76.tar.bz2 emacs-f0d527fcb74b7bb77ab6f2ac159c4ad9842abf76.zip | |
Indent `with-standard-io-syntax' correctly.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index dff375a2714..54f13239b18 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -433,7 +433,8 @@ by `lisp-body-indent'." (throw 1) (unless 1) (unwind-protect (5 &body)) - (when 1)))) + (when 1) + (with-standard-io-syntax (2))))) (while l (put (car (car l)) 'common-lisp-indent-function (if (symbolp (cdr (car l))) |