|--==> "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>---|