Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/emacs-lisp/pp.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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&\210\310\311\312\313\314DD\315\316\317\306\301&\207" [custom-declare-group pp nil "Pretty printer for Emacs Lisp." :prefix "pp-" :group lisp custom-declare-variable pp-escape-newlines funcall function #[0 "\300\207" [t] 1] "Value of `print-escape-newlines' used by pp-* functions." :type boolean] 8)
#@222 Return a string containing the pretty-printed representation of OBJECT.
OBJECT can be any Lisp object.  Quoting characters are used as needed
to make output that `read' can handle, whenever this is possible.

(fn OBJECT)
(defalias 'pp-to-string #[257 "\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\316!\210\317!\210	\320\321p\"\210*\322 \210\323 *\207" [emacs-lisp-mode-syntax-table pp-escape-newlines print-quoted print-escape-newlines generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 lisp-mode-variables nil set-syntax-table t prin1 pp-buffer buffer-string] 8 (#$ . 756)])
#@75 Prettify the current buffer with printed representation of a Lisp object.
(defalias 'pp-buffer #[0 "eb\210m\204j\3001\301\302!\210\3030\202\210\202>\203>\212\304u\210\305\306x\210o\204:`Sf\307>\203:`\310\306x\210`|\210\311c\210)\202\3121K\313\302!\210\3030\202O\210\202d\203d\314\315!\210`\310\306w\210`|\210\316c\210\202db\210\202eb\210\317 \207" [(error) down-list 1 t -1 "'`#^" nil (32 9 10) " 	\n" "\n" (error) up-list skip-syntax-forward ")" 10 indent-sexp] 3 (#$ . 1428) nil])
#@275 Output the pretty-printed representation of OBJECT, any Lisp object.
Quoting characters are printed as needed to make output that `read'
can handle, whenever this is possible.
Output stream is STREAM, or value of `standard-output' (which see).

(fn OBJECT &optional STREAM)
(defalias 'pp #[513 "\301\302!\206	\"\207" [standard-output princ pp-to-string] 5 (#$ . 1937)])
#@202 Prettify and display EXPRESSION in an appropriate way, depending on length.
If a temporary buffer is needed for representation, it will be named
after OUT-BUFFER-NAME.

(fn EXPRESSION OUT-BUFFER-NAME)
(defalias 'pp-display-expression #[514 "\306\307\310\311\312\"\313\"\314\315%	r\316!q\210p\317 \210
\320\211\321\211\321\322 \210\323\324!\210+\211\325!\210rq\210\326 \210\320\327\330!\210\320\211)\331!\210)\266\202)\207" [temp-buffer-show-function default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks make-byte-code 257 "r\211q\210eb\210\303\210`TdW\204`eZ\304 Y\203F\301\305 \306!eb\210\307\310!!\210\311\312\313\314\315\300\"\316\"\317$\216\320
!\210\321\322!*\266\203\202L\323\324e`{\")\207" vconcat vector [temp-buffer-show-function 1 frame-width selected-window display-buffer make-frame-visible window-frame make-byte-code 0 "\302\301!\203\n\303\301!\210\304\305\300\"\207" vconcat vector [window-live-p select-window message "See buffer %s."] 3 select-window run-hooks temp-buffer-show-hook message "%s"] 11 "\n\n(fn BUF)" get-buffer-create kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook pp emacs-lisp-mode make-local-variable font-lock-verbose internal-temp-output-buffer-show inhibit-read-only standard-output] 11 (#$ . 2318)])
#@136 Evaluate EXPRESSION and pretty-print its value.
Also add the value to the front of the list in the variable `values'.

(fn EXPRESSION)
(defalias 'pp-eval-expression #[257 "\302\303!\210\304
\"	B\305	@\306\"\207" [lexical-binding values message "Evaluating..." eval pp-display-expression "*Pp Eval Output*"] 4 (#$ . 3672) (byte-code "\300\301!C\207" [read--expression "Eval: "] 2)])
#@69 Macroexpand EXPRESSION and pretty-print its value.

(fn EXPRESSION)
(defalias 'pp-macroexpand-expression #[257 "\300\301!\302\"\207" [pp-display-expression macroexpand-1 "*Pp Macroexpand Output*"] 4 (#$ . 4062) (byte-code "\300\301!C\207" [read--expression "Macroexpand: "] 2)])
#@62 Read sexp before point.  Ignores leading comment characters.
(defalias 'pp-last-sexp #[0 "\302 p\303\304\305\306\307\"\310\"\311$\216\312!\210`\212\313\314!\210\315\212\316 \210\317\320\321
!)\262
)\203U`{\322\323\324#\203O\304\224T\262
\325\304#\325\304\225\"P\262\2022
\266\202\202Vp!)\262
)\207" [emacs-lisp-mode-syntax-table inhibit-changing-match-data syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table forward-sexp -1 read beginning-of-line "[ 	]*;" t looking-at nil string-match "\n[ 	]*;+" substring] 10 (#$ . 4348)])
#@150 Run `pp-eval-expression' on sexp before point.
With argument, pretty-print output into current buffer.
Ignores leading comment characters.

(fn ARG)
(defalias 'pp-eval-last-sexp #[257 "\211\203
\301\302\303 \"!c\207\304\303 !\207" [lexical-binding pp-to-string eval pp-last-sexp pp-eval-expression] 5 (#$ . 4957) "P"])
#@157 Run `pp-macroexpand-expression' on sexp before point.
With argument, pretty-print output into current buffer.
Ignores leading comment characters.

(fn ARG)
(defalias 'pp-macroexpand-last-sexp #[257 "\211\203\f\300\301\302 !!c\207\303\302 !\207" [pp-to-string macroexpand-1 pp-last-sexp pp-macroexpand-expression] 4 (#$ . 5285) "P"])
(provide 'pp)