Mercurial > hg > xemacs-beta

comparison lisp/edebug/cust-print.el @ 72:b9518feda344 r20-0b31

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