diff options
| author | Karl Heuer | 1998-11-16 06:37:55 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-11-16 06:37:55 +0000 |
| commit | 44c705d46a9cfb1f1174b236369bd526cde2b23e (patch) | |
| tree | e7f474b38d455ca07ea3309a6e2023dd200e7e27 | |
| parent | 66b48aded6158f3d1f7221a090a269dacaad3cc3 (diff) | |
| download | emacs-44c705d46a9cfb1f1174b236369bd526cde2b23e.tar.gz emacs-44c705d46a9cfb1f1174b236369bd526cde2b23e.zip | |
indent `with-output-to-string' as a CL
macro, not ELisp one.
| -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 6aa41252ecc..d038a6228a7 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el | |||
| @@ -438,6 +438,7 @@ by `lisp-body-indent'." | |||
| 438 | (unless 1) | 438 | (unless 1) |
| 439 | (unwind-protect (5 &body)) | 439 | (unwind-protect (5 &body)) |
| 440 | (when 1) | 440 | (when 1) |
| 441 | (with-output-to-string (4 2)) | ||
| 441 | (with-standard-io-syntax (2))))) | 442 | (with-standard-io-syntax (2))))) |
| 442 | (while l | 443 | (while l |
| 443 | (put (caar l) 'common-lisp-indent-function | 444 | (put (caar l) 'common-lisp-indent-function |