HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/obsolete/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/obsolete/cust-print.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\306\307\306\310&	\210\311\312!\204\312\313M\210\314\315\302\316\317\320\306\301&\210\314\321\302\322\317\323\306\301&\210\314\324\302\325\317\323\306\301&\207" [custom-declare-group cust-print nil "Handles print-level and print-circle." :prefix "print-" :group lisp extensions fboundp defalias fset custom-declare-variable print-level "Controls how many levels deep a nested data object will print.\n\nIf nil, printing proceeds recursively and may lead to\nmax-lisp-eval-depth being exceeded or an error may occur:\n`Apparently circular structure being printed.'\nAlso see `print-length' and `print-circle'.\n\nIf non-nil, components at levels equal to or greater than `print-level'\nare printed simply as `#'.  The object to be printed is at level 0,\nand if the object is a list or vector, its top-level components are at\nlevel 1." :type (choice (const nil) integer) print-circle "Controls the printing of recursive structures.\n\nIf nil, printing proceeds recursively and may lead to\n`max-lisp-eval-depth' being exceeded or an error may occur:\n\"Apparently circular structure being printed.\"  Also see\n`print-length' and `print-level'.\n\nIf non-nil, shared substructures anywhere in the structure are printed\nwith `#N=' before the first occurrence (in the order of the print\nrepresentation) and `#N#' in place of each subsequent occurrence,\nwhere N is a positive decimal integer.\n\nThere is no way to read this representation in standard Emacs,\nbut if you need to do so, try the cl-read.el package." boolean custom-print-vectors "Non-nil if printing of vectors should obey `print-level' and `print-length'."] 10)
#@461 An alist for custom printing of any type.
Pairs are of the form (PREDICATE . PRINTER).  If PREDICATE is true
for an object, then PRINTER is called with the object.
PRINTER should print to `standard-output' using cust-print-original-princ
if the standard printer is sufficient, or cust-print-prin for complex things.
The PRINTER should return the object being printed.

Don't modify this variable directly.  Use `add-custom-printer' and
`delete-custom-printer'
(defvar custom-printers nil (#$ . 2078))
#@114 Add a pair of PREDICATE and PRINTER to `custom-printers'.
Any pair that has the same PREDICATE is first removed.
(defalias 'add-custom-printer #[(pred printer) "	B\303\n\236\n\"B\304 \207" [pred printer custom-printers delq cust-print-update-custom-printers] 4 (#$ . 2586)])
#@54 Delete the custom printer associated with PREDICATE.
(defalias 'delete-custom-printer #[(pred) "\302	\236	\"\303 \207" [pred custom-printers delq cust-print-update-custom-printers] 3 (#$ . 2870)])
(defalias 'cust-print-use-custom-printer #[(object) "\300\207" [nil] 1])
(defalias 'cust-print-update-custom-printers #[nil "\301\302\303\304\305\306\307\310\"\311\"BE\"\207" [custom-printers defalias cust-print-use-custom-printer lambda (object) cond append mapcar #[(pair) "@\301BA\302BD\207" [pair (object) (object)] 3] ((t nil))] 9])
(defalias 'cust-print-set-function-cell #[(symbol-pair) "\301@A@K\"\207" [symbol-pair defalias] 3])
(defalias 'cust-print-original-princ #[(object &optional stream) "\300\207" [nil] 1])
(byte-code "\300\301!\204\302\303\304\"\210\300\207" [fboundp cust-print-original-prin1 mapc cust-print-set-function-cell ((cust-print-original-prin1 prin1) (cust-print-original-princ princ) (cust-print-original-print print) (cust-print-original-prin1-to-string prin1-to-string) (cust-print-original-format format) (cust-print-original-message message) (cust-print-original-error error))] 3)
#@170 Replace print functions with general, customizable, Lisp versions.
The Emacs subroutines are saved away, and you can reinstall them
by running `custom-print-uninstall'.
(defalias 'custom-print-install #[nil "\300\301\302\"\210\303\207" [mapc cust-print-set-function-cell ((prin1 custom-prin1) (princ custom-princ) (print custom-print) (prin1-to-string custom-prin1-to-string) (format custom-format) (message custom-message) (error custom-error)) t] 3 (#$ . 3999) nil])
#@51 Reset print functions to their Emacs subroutines.
(defalias 'custom-print-uninstall #[nil "\300\301\302\"\210\303\207" [mapc cust-print-set-function-cell ((prin1 cust-print-original-prin1) (princ cust-print-original-princ) (print cust-print-original-print) (prin1-to-string cust-print-original-prin1-to-string) (format cust-print-original-format) (message cust-print-original-message) (error cust-print-original-error)) t] 3 (#$ . 4474) nil])
(defalias 'custom-print-funcs-installed-p 'custom-print-installed-p)
#@65 Return t if custom-print is currently installed, nil otherwise.
(defalias 'custom-print-installed-p #[nil "\300K\301K=\207" [custom-prin1 prin1] 2 (#$ . 4992)])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\306\301\304\"\207" [put with-custom-print-funcs edebug-form-spec (body) with-custom-print (body) defalias] 4)
#@68 Temporarily install the custom print package while executing BODY.
(defalias 'with-custom-print '(macro . #[(&rest body) "\301\302\303BB\304BB\207" [body unwind-protect progn (custom-print-install) ((custom-print-uninstall))] 4 (#$ . 5324)]))
#@410 Output the printed representation of OBJECT, any Lisp object.
Quoting characters are printed when needed to make output that `read'
can handle, whenever this is possible.
Output stream is STREAM, or value of `standard-output' (which see).

This is the custom-print replacement for the standard `prin1'.  It
uses the appropriate printer depending on the values of `print-level'
and `print-circle' (which see).
(defalias 'custom-prin1 #[(object &optional stream) "\302	\303#\207" [object stream cust-print-top-level cust-print-original-prin1] 4 (#$ . 5575)])
#@285 Output the printed representation of OBJECT, any Lisp object.
No quoting characters are used; no delimiters are printed around
the contents of strings.
Output stream is STREAM, or value of `standard-output' (which see).

This is the custom-print replacement for the standard `princ'.
(defalias 'custom-princ #[(object &optional stream) "\302	\303#\207" [object stream cust-print-top-level cust-print-original-princ] 4 (#$ . 6140)])
#@321 Return a string containing the printed representation of OBJECT,
any Lisp object.  Quoting characters are used when needed to make output
that `read' can handle, whenever this is possible, unless the optional
second argument NOESCAPE is non-nil.

This is the custom-print replacement for the standard `prin1-to-string'.
(defalias 'custom-prin1-to-string #[(object &optional noescape) "\303\304!rq\210\305 \210)	\203\306\n\"\210\202\307\n\"\210rq\210\310 *\207" [buf noescape object get-buffer-create " *custom-print-temp*" erase-buffer custom-princ custom-prin1 buffer-string] 3 (#$ . 6580)])
#@312 Output the printed representation of OBJECT, with newlines around it.
Quoting characters are printed when needed to make output that `read'
can handle, whenever this is possible.
Output stream is STREAM, or value of `standard-output' (which see).

This is the custom-print replacement for the standard `print'.
(defalias 'custom-print #[(object &optional stream) "\302\303\"\210\304	\"\210\302\303\"\207" [stream object cust-print-original-princ "\n" custom-prin1] 3 (#$ . 7189)])
#@848 Format a string out of a control-string and arguments.
The first argument is a control string.  It, and subsequent arguments
substituted into it, become the value, which is a string.
It may contain %s or %d or %c to substitute successive following arguments.
%s means print an argument as a string, %d means print as number in decimal,
%c means print a number as a single character.
The argument used by %s must be a string or a symbol;
the argument used by %d, %b, %o, %x or %c must be a number.

This is the custom-print replacement for the standard `format'.  It
calls the Emacs `format' after first making strings for list,
vector, or symbol args.  The format specification for such args should
be `%s' in any case, so a string argument will also work.  The string
is generated with `custom-prin1-to-string', which quotes quotable
characters.
(defalias 'custom-format #[(fmt &rest args) "\302\303\304\305	\"#\207" [fmt args apply cust-print-original-format mapcar #[(arg) "<\204\301!\2049\203\302!\207\207" [arg vectorp custom-prin1-to-string] 2]] 6 (#$ . 7680)])
#@495 Print a one-line message at the bottom of the screen.
The first argument is a control string.
It may contain %s or %d or %c to print successive following arguments.
%s means print an argument as a string, %d means print as number in decimal,
%c means print a number as a single character.
The argument used by %s must be a string or a symbol;
the argument used by %d or %c must be a number.

This is the custom-print replacement for the standard `message'.
See `custom-format' for the details.
(defalias 'custom-message #[(fmt &rest args) "\302\303\304\305	\"#\207" [fmt args apply cust-print-original-message mapcar #[(arg) "<\204\301!\2049\203\302!\207\207" [arg vectorp custom-prin1-to-string] 2]] 6 (#$ . 8767)])
#@173 Signal an error, making error message by passing all args to `format'.

This is the custom-print replacement for the standard `error'.
See `custom-format' for the details.
(defalias 'custom-error #[(fmt &rest args) "\302\303\304\305	#C\"\207" [fmt args signal error apply custom-format] 6 (#$ . 9503)])
(defalias 'cust-print-original-printer #[(object) "\300\207" [nil] 1])
(defalias 'cust-print-low-level-prin #[(object) "\300\207" [nil] 1])
(defalias 'cust-print-prin #[(object) "\300\207" [nil] 1])
(defalias 'cust-print-top-level #[(object stream emacs-printer) "\206	\n\205\f\306!\f\206\307\310\311\"\210\310\312\2049\2049\f\2049\203=\f\2049\203=\313\202>\311\"\210\310\314\203K\315\202L\312\"\210\314!\210+\207" [stream standard-output print-circle object print-level cust-print-current-level cust-print-preprocess-circle-tree -1 defalias cust-print-original-printer cust-print-low-level-prin cust-print-print-object cust-print-prin cust-print-print-circular circle-table emacs-printer custom-printers custom-print-vectors print-length] 3])
(defalias 'cust-print-print-object #[(object) "\204\301!\207\302!\203\207:\203\303!\207\304!\203#\305!\207\301!\207" [object cust-print-original-printer cust-print-use-custom-printer cust-print-list vectorp cust-print-vector] 2])
(defalias 'cust-print-print-circular #[(object) "	\236\211\2038\nA\211\304V\203\305\306!\210\305!\210\305\306!\2024\n[\241\210\305\306!\210\305[!\210\305\307!\210\310!)\202;\310!)\207" [object circle-table tag id 0 cust-print-original-princ "#" "=" cust-print-low-level-prin] 3])
(defalias 'cust-print-list #[(list) "\305U\203
\306\307!\210\202xS\306\310!\210	\206\305\311@!\210A\211\203*\306\312!\210\nS\203e\n\305U\204e<\203M\f\236\204M\311@!\210A\202W\306\313!\210\311!\210\314\nS\203-\306\312!\210\202-\203s\n\305U\203s\306\315!\210\306\316!\210*\207" [cust-print-current-level print-length length list circle-table 0 cust-print-original-princ "#" "(" cust-print-prin " " ". " nil "..." ")"] 3])
(defalias 'cust-print-vector #[(vector) "\305U\203
\306\307!\210\202NS\305	G\306\310!\210\f\203!\f\n^\nW\203>\311	H!\210T\211	GW\203!\306\312!\210\202!	GW\203I\306\313!\210\306\314!\210+	\207" [cust-print-current-level vector len i print-length 0 cust-print-original-princ "#" "[" cust-print-prin " " "..." "]"] 4])
(defalias 'cust-print-preprocess-circle-tree #[(object) "\305C\306	!\210\211A\237\241\210\307A\2036A@\211A\203,\f\n\241\210\nSA\2022\211AA\241\210)\202*A)\207" [circle-table object id rest tag nil cust-print-walk-circle-tree -1] 3])
(defalias 'cust-print-walk-circle-tree #[(object) "\306\211\n\205w\n\247\206\n9\205\n\307\310\n!!=\211?\205#\nA\236\211\203/\311\241\210\202;	\204;\nCAB\241\210\203C\306\202q\n:\203R\312\n@!\210\nA\202q\313\n!\205q\nG\314\f
W\205p\312\n\fH!\210\fT\211\202^*\211\204\306*\207" [tag read-equivalent-p object circle-table j i nil intern-soft symbol-name t cust-print-walk-circle-tree vectorp 0] 5])
(provide 'cust-print)