Mercurial > hg > xemacs-beta
changeset 1729:175ee2cb4d3a
[xemacs-hg @ 2003-09-30 22:09:31 by youngs]
2003-10-01 Steve Youngs <youngs@xemacs.org>
* cl-extra.el (cl-do-prettyprint): Work around a "formatting" bug
in `report-xemacs-bug'.
| author | youngs |
|---|---|
| date | Tue, 30 Sep 2003 22:09:33 +0000 |
| parents | 5b649e279316 |
| children | 3297525407a7 |
| files | lisp/ChangeLog lisp/cl-extra.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 30 21:52:39 2003 +0000 +++ b/lisp/ChangeLog Tue Sep 30 22:09:33 2003 +0000 @@ -1,3 +1,8 @@ +2003-10-01 Steve Youngs <youngs@xemacs.org> + + * cl-extra.el (cl-do-prettyprint): Work around a "formatting" bug + in `report-xemacs-bug'. + 2003-09-26 Steve Youngs <youngs@xemacs.org> * XEmacs 21.5.16 "celeriac" is released.
--- a/lisp/cl-extra.el Tue Sep 30 21:52:39 2003 +0000 +++ b/lisp/cl-extra.el Tue Sep 30 22:09:33 2003 +0000 @@ -713,7 +713,8 @@ (defun cl-do-prettyprint () (skip-chars-forward " ") (if (looking-at "(") - (let ((skip (or (looking-at "((") (looking-at "(prog") + (let ((skip (or (looking-at "((") + (looking-at "(prog[nv12\\(ress-feedback\\|n-with-message\\)]") (looking-at "(unwind-protect ") (looking-at "(function (") (looking-at "(cl-block-wrapper ")))