# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895812168 0
# Node ID 485917486caf912f739e7781146c140f6b5077ab
# Parent  edc72bb3a3ffc36a7806337acdee58809bd359bb
Indent `with-standard-io-syntax' correctly.

diff -r edc72bb3a3ff -r 485917486caf lisp/emacs-lisp/cl-indent.el
--- a/lisp/emacs-lisp/cl-indent.el	Fri May 22 03:24:28 1998 +0000
+++ b/lisp/emacs-lisp/cl-indent.el	Fri May 22 04:42:48 1998 +0000
@@ -433,7 +433,8 @@
 	   (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)))