Re: [Bug: 21.5-b15] Gnus crash

SY> This patch to cl-extra.el fixes it... Hey, you're pretty handy guy to have around! ------------------------------------------------------------------------ --- /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 "))) ------------------------------------------------------------------------ SY> 2 questions... SY> 1) does the patch break anything else? No, but it leaves other breakage broken. For example, I suspect that when Jon Bentley asks us to distribute programming-pearls-in-elisp as an XEmacs package, it will break in the same way. The regexp "(prog" is a cheap hack to avoid this: "(prog\\(n-with-message\\|[12nv]\\) " and I suspect it wouldn't hurt much to elide the "-with-message" version, giving "(prog[12nv] ". SY> 2) is it worth "fixing" in the first place? I think so, since it's this easy. -- Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Ask not how you can "do" free software business; ask what your business can "do for" free software.