Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
abbrevlist.elc	1.27 KB	-rw-r--r--
assoc.elc	4.12 KB	-rw-r--r--
bruce.elc	1.48 KB	-rw-r--r--
cc-compat.elc	2.75 KB	-rw-r--r--
cl-compat.elc	3.81 KB	-rw-r--r--
cl.elc	14.81 KB	-rw-r--r--
complete.elc	24.19 KB	-rw-r--r--
crisp.elc	11.09 KB	-rw-r--r--
cust-print.elc	12.32 KB	-rw-r--r--
erc-hecomplete.elc	8.6 KB	-rw-r--r--
eudcb-ph.elc	5.87 KB	-rw-r--r--
fast-lock.elc	16.69 KB	-rw-r--r--
gs.elc	3.76 KB	-rw-r--r--
gulp.elc	4.59 KB	-rw-r--r--
html2text.elc	9.77 KB	-rw-r--r--
info-edit.elc	4.45 KB	-rw-r--r--
iswitchb.elc	31.64 KB	-rw-r--r--
landmark.elc	41.62 KB	-rw-r--r--
lazy-lock.elc	24.11 KB	-rw-r--r--
ledit.elc	4.44 KB	-rw-r--r--
levents.elc	9.27 KB	-rw-r--r--
lmenu.elc	10.96 KB	-rw-r--r--
longlines.elc	15.21 KB	-rw-r--r--
lucid.elc	5.2 KB	-rw-r--r--
mailpost.elc	2.11 KB	-rw-r--r--
mantemp.elc	3.61 KB	-rw-r--r--
meese.elc	833 B	-rw-r--r--
messcompat.el	1.73 KB	-rw-r--r--
mouse-sel.elc	20.17 KB	-rw-r--r--
old-emacs-lock.elc	2.59 KB	-rw-r--r--
old-whitespace.elc	22.78 KB	-rw-r--r--
otodo-mode.elc	23.86 KB	-rw-r--r--
patcomp.elc	988 B	-rw-r--r--
pc-mode.elc	1.3 KB	-rw-r--r--
pc-select.elc	12.86 KB	-rw-r--r--
pgg-def.elc	2.24 KB	-rw-r--r--
pgg-gpg.elc	12.72 KB	-rw-r--r--
pgg-parse.elc	12.87 KB	-rw-r--r--
pgg-pgp.elc	7.42 KB	-rw-r--r--
pgg-pgp5.elc	7.34 KB	-rw-r--r--
pgg.elc	18.98 KB	-rw-r--r--
rcompile.elc	3.01 KB	-rw-r--r--
s-region.elc	3.08 KB	-rw-r--r--
sregex.elc	12.15 KB	-rw-r--r--
starttls.elc	6.03 KB	-rw-r--r--
sup-mouse.elc	3.98 KB	-rw-r--r--
terminal.elc	30.36 KB	-rw-r--r--
tls.elc	7.29 KB	-rw-r--r--
tpu-edt.elc	59.59 KB	-rw-r--r--
tpu-extras.elc	11.88 KB	-rw-r--r--
tpu-mapper.elc	10.33 KB	-rw-r--r--
url-ns.elc	2.16 KB	-rw-r--r--
vc-arch.elc	17.65 KB	-rw-r--r--
vi.elc	47.89 KB	-rw-r--r--
vip.elc	76.49 KB	-rw-r--r--
ws-mode.elc	24.11 KB	-rw-r--r--
yow.elc	2.14 KB	-rw-r--r--

Code Editor : cust-print.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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!\204�9\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!\204�9\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\202x�S\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\202N�S\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\2036�A@\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)

${this.title}

Code Editor : cust-print.elc