Mercurial > emacs
comparison lisp/emacs-lisp/cl-indent.el @ 23725:222d58586999
indent `with-output-to-string' as a CL
macro, not ELisp one.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 16 Nov 1998 06:37:55 +0000 |
| parents | edbc56db94ee |
| children | e6efd0ace0f3 |
comparison
equal
deleted
inserted
replaced
| 23724:a4722c0bd856 | 23725:222d58586999 |
|---|---|
| 436 (tagbody lisp-indent-tagbody) | 436 (tagbody lisp-indent-tagbody) |
| 437 (throw 1) | 437 (throw 1) |
| 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 |
| 444 (if (symbolp (cdar l)) | 445 (if (symbolp (cdar l)) |
| 445 (get (cdar l) 'common-lisp-indent-function) | 446 (get (cdar l) 'common-lisp-indent-function) |