Mercurial > hg > xemacs-beta

comparison lisp/cl-extra.el @ 1729:175ee2cb4d3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 2b676dc88c66
children 9c872f33ecbe
comparison
equal deleted inserted replaced
1728:5b649e279316 1729:175ee2cb4d3a
711 (cl-do-prettyprint))) 711 (cl-do-prettyprint)))
712 712
713 (defun cl-do-prettyprint () 713 (defun cl-do-prettyprint ()
714 (skip-chars-forward " ") 714 (skip-chars-forward " ")
715 (if (looking-at "(") 715 (if (looking-at "(")
716 (let ((skip (or (looking-at "((") (looking-at "(prog") 716 (let ((skip (or (looking-at "((")
717 (looking-at "(prog[nv12\\(ress-feedback\\|n-with-message\\)]")
717 (looking-at "(unwind-protect ") 718 (looking-at "(unwind-protect ")
718 (looking-at "(function (") 719 (looking-at "(function (")
719 (looking-at "(cl-block-wrapper "))) 720 (looking-at "(cl-block-wrapper ")))
720 (two (or (looking-at "(defun ") (looking-at "(defmacro "))) 721 (two (or (looking-at "(defun ") (looking-at "(defmacro ")))
721 (let (or (looking-at "(let\\*? ") (looking-at "(while "))) 722 (let (or (looking-at "(let\\*? ") (looking-at "(while ")))