Mercurial > hg > xemacs-beta

comparison lisp/edebug/cust-print.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents b82b59fe008d
children b9518feda344
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
4 4
5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> 5 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
6 ;; Adapted-By: ESR 6 ;; Adapted-By: ESR
7 ;; Keywords: extensions 7 ;; Keywords: extensions
8 8
9 ;; This file is part of XEmacs.
10
11 ;; XEmacs is free software; you can redistribute it and/or modify it
12 ;; under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; XEmacs is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
24 ;; 02111-1307, USA.
25
26 ;;; Synched up with: Not in FSF
27
28 ;; LCD Archive Entry: 9 ;; LCD Archive Entry:
29 ;; cust-print|Daniel LaLiberte|liberte@cs.uiuc.edu 10 ;; cust-print|Daniel LaLiberte|liberte@cs.uiuc.edu
30 ;; |Handle print-level, print-circle and more. 11 ;; |Handle print-level, print-circle and more.
31 ;; |$Date: 1996/12/18 03:54:29 $|$Revision: 1.1.1.2 $| 12 ;; |$Date: 1996/12/18 22:43:07 $|$Revision: 1.1.1.1 $|
32 13
33 ;; =============================== 14 ;; This file is part of GNU Emacs.
34 ;; $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs-19/lisp/edebug/cust-print.el,v 1.1.1.2 1996/12/18 03:54:29 steve Exp $ 15
35 ;; $Log: cust-print.el,v $ 16 ;; GNU Emacs is free software; you can redistribute it and/or modify
36 ;; Revision 1.1.1.2 1996/12/18 03:54:29 steve 17 ;; it under the terms of the GNU General Public License as published by
37 ;; XEmacs 19.15-b3 18 ;; the Free Software Foundation; either version 2, or (at your option)
38 ;; 19 ;; any later version.
39 ;; Revision 1.4 1994/03/23 20:34:29 liberte 20
40 ;; * Change "emacs" to "original" - I just can't decide. 21 ;; GNU Emacs is distributed in the hope that it will be useful,
41 ;; 22 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
42 ;; Revision 1.3 1994/02/21 21:25:36 liberte 23 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
43 ;; * Make custom-prin1-to-string more robust when errors occur. 24 ;; GNU General Public License for more details.
44 ;; * Change "internal" to "emacs". 25
45 ;; 26 ;; You should have received a copy of the GNU General Public License
46 ;; Revision 1.2 1993/11/22 22:36:36 liberte 27 ;; along with GNU Emacs; see the file COPYING. If not, write to
47 ;; * Simplified and generalized printer customization. 28 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
48 ;; custom-printers is an alist of (PREDICATE . PRINTER) pairs 29
49 ;; for any data types. The PRINTER function should print to 30 ;;; ===============================
50 ;; `standard-output' add-custom-printer and delete-custom-printer 31 ;;; $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/edebug/Attic/cust-print.el,v 1.1.1.1 1996/12/18 22:43:07 steve Exp $
51 ;; change custom-printers. 32 ;;; $Log: cust-print.el,v $
52 ;; 33 ;;; Revision 1.1.1.1 1996/12/18 22:43:07 steve
53 ;; * Installation function now called install-custom-print. The 34 ;;; XEmacs 20.0 -- Beta 30
54 ;; old name is still around for now. 35 ;;;
55 ;; 36 ;;; Revision 1.4 1994/03/23 20:34:29 liberte
56 ;; * New macro with-custom-print (added earlier) - executes like 37 ;;; * Change "emacs" to "original" - I just can't decide.
57 ;; progn but with custom-print activated temporarily. 38 ;;;
58 ;; 39 ;;; Revision 1.3 1994/02/21 21:25:36 liberte
59 ;; * Cleaned up comments for replacements of standardard printers. 40 ;;; * Make custom-prin1-to-string more robust when errors occur.
60 ;; 41 ;;; * Change "internal" to "emacs".
61 ;; * Changed custom-prin1-to-string to use a temporary buffer. 42 ;;;
62 ;; 43 ;;; Revision 1.2 1993/11/22 22:36:36 liberte
63 ;; * Internal symbols are prefixed with CP::. 44 ;;; * Simplified and generalized printer customization.
64 ;; 45 ;;; custom-printers is an alist of (PREDICATE . PRINTER) pairs
65 ;; * Option custom-print-vectors (added earlier) - controls whether 46 ;;; for any data types. The PRINTER function should print to
66 ;; vectors should be printed according to print-length and 47 ;;; `standard-output' add-custom-printer and delete-custom-printer
67 ;; print-length. Emacs doesnt do this, but cust-print would 48 ;;; change custom-printers.
68 ;; otherwise do it only if custom printing is required. 49 ;;;
69 ;; 50 ;;; * Installation function now called install-custom-print. The
70 ;; * Uninterned symbols are treated as non-read-equivalent. 51 ;;; old name is still around for now.
71 ;; 52 ;;;
53 ;;; * New macro with-custom-print (added earlier) - executes like
54 ;;; progn but with custom-print activated temporarily.
55 ;;;
56 ;;; * Cleaned up comments for replacements of standardard printers.
57 ;;;
58 ;;; * Changed custom-prin1-to-string to use a temporary buffer.
59 ;;;
60 ;;; * Internal symbols are prefixed with CP::.
61 ;;;
62 ;;; * Option custom-print-vectors (added earlier) - controls whether
63 ;;; vectors should be printed according to print-length and
64 ;;; print-length. Emacs doesnt do this, but cust-print would
65 ;;; otherwise do it only if custom printing is required.
66 ;;;
67 ;;; * Uninterned symbols are treated as non-read-equivalent.
68 ;;;
72 69
73 70
74 ;;; Commentary: 71 ;;; Commentary:
75 72
76 ;; This package provides a general print handler for prin1 and princ 73 ;; This package provides a general print handler for prin1 and princ