# HG changeset patch
# User youngs
# Date 1064959773 0
# Node ID 175ee2cb4d3a067994913cb821634693e827a7b3
# Parent  5b649e279316f015b3e57ae618ad340143c6e9e1
[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'.

diff -r 5b649e279316 -r 175ee2cb4d3a lisp/ChangeLog
--- 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.
diff -r 5b649e279316 -r 175ee2cb4d3a lisp/cl-extra.el
--- 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 ")))