|--==> "SJT" == Stephen J Turnbull <stephen(a)xemacs.org> writes:
  SJT>  (prog-modes
  SJT>   :version
  SJT>    1
  SJT>    .83
  SJT>     :type
  SJT>      single-file)
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  SJT> Jerry interjects: What happened there?  Overly narrow margins gone wild?
  SJT>
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  SJT> prog-modes is always like that.  Somebody figured out why once but
  SJT> nobody ever got around to fixing it.
This patch to cl-extra.el fixes it...
--- /home/steve/programming/XEmacs/xemacs-21.4/lisp/cl-extra.el	2001-04-13
04:21:13.000000000 +1000
+++ /usr/local/lib/xemacs-21.4.14/lisp/cl-extra.el	2003-09-27 01:20:31.000000000 +1000
@@ -710,7 +710,7 @@
 (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[^\\(-modes\\)]")
 		      (looking-at "(unwind-protect ")
 		      (looking-at "(function (")
 		      (looking-at "(cl-block-wrapper ")))
2 questions...
        1) does the patch break anything else?
        2) is it worth "fixing" in the first place?
-- 
|---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---|
|        XEmacs - The only _______ you'll ever need.       |
|          Fill in the blank, yes, it's THAT good!         |
|------------------------------------<youngs(a)xemacs.org>---|