;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:04 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/pp.el
;;; in Emacs version 24.3.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&\210\310\311\312\313\314\315\306\301&\207" [custom-declare-group pp nil "Pretty printer for Emacs Lisp." :prefix "pp-" :group lisp custom-declare-variable pp-escape-newlines t "Value of `print-escape-newlines' used by pp-* functions." :type boolean] 8)
#@209 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.
(defalias 'pp-to-string #[(object) "\306\307!rq\210\310\216\311\312!\210\313	!\210\n\314\315
p\"\210*\316 \210\317 +\207" [#1=#:temp-buffer emacs-lisp-mode-syntax-table pp-escape-newlines print-quoted print-escape-newlines object generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) lisp-mode-variables nil set-syntax-table t prin1 pp-buffer buffer-string] 3 (#$ . 857)])
#@75 Prettify the current buffer with printed representation of a Lisp object.
(defalias 'pp-buffer #[nil "eb\210m\204]\302\303\304\217\2031\212\305u\210\306\302x\210o\204-`Sf\307>\203-`\310\302x\210`|\210\311c\210)\202\302\312\313\217\203W\314\315\316!*\203I\317u\210\2028`\310\302w\210`|\210\320c\210\202db\210\202eb\210\321 \207" [regexp inhibit-changing-match-data nil (byte-code "\300\301!\210\302\207" [down-list 1 t] 2) ((error)) -1 "'`#^" (32 9 10) " 	\n" "\n" (byte-code "\300\301!\210\302\207" [up-list 1 t] 2) ((error)) "\\s)" t looking-at 1 10 indent-sexp] 3 (#$ . 1504)])
#@245 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).
(defalias 'pp #[(object &optional stream) "\303\304!	\206	\n\"\207" [object stream standard-output princ pp-to-string] 3 (#$ . 2107)])
#@169 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.
(defalias 'pp-display-expression #[(expression out-buffer-name) "\306\nr\307\f!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!\210+\211\316!\210rq\210\317 \210\311\320\321!\210\311\211)\322!\210-\207" [temp-buffer-show-function old-show-function default-directory #1=#:old-dir out-buffer-name buffer-read-only #[(buf) "rq\210eb\210\305\210`TdW\204`eZ\306 Y\2039	\307 \310!eb\210\311\312\n!!\210\313\216\314\n!\210\315\316!,\202?\317\320e`{\")\207" [buf old-show-function window old-selected temp-buffer-show-function 1 frame-width selected-window display-buffer make-frame-visible window-frame ((byte-code "\302!\203\n\303!\210\304\305	\"\207" [old-selected out-buffer-name window-live-p select-window message "See buffer %s."] 3)) select-window run-hooks temp-buffer-show-hook message "%s"] 4] 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 buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output expression] 4 (#$ . 2495)])
#@119 Evaluate EXPRESSION and pretty-print its value.
Also add the value to the front of the list in the variable `values'.
(defalias 'pp-eval-expression #[(expression) "\302\303!\210\304!	B\305	@\306\"\207" [expression values message "Evaluating..." eval pp-display-expression "*Pp Eval Output*"] 3 (#$ . 3829) (list (read-from-minibuffer "Eval: " nil read-expression-map t 'read-expression-history))])
#@52 Macroexpand EXPRESSION and pretty-print its value.
(defalias 'pp-macroexpand-expression #[(expression) "\301\302!\303\"\207" [expression pp-display-expression macroexpand "*Pp Macroexpand Output*"] 3 (#$ . 4235) (list (read-from-minibuffer "Macroexpand: " nil read-expression-map t 'read-expression-history))])
#@62 Read sexp before point.  Ignores leading comment characters.
(defalias 'pp-last-sexp #[nil "\306 `\307\211\310\f!\210\212\311\312!\210\212\313 \210\314\315\316
!+\203G`\n{\317\320	#\203@\321\224T\321	O\321\225\307OP\202&\322!\202K\322p!)\310!\210,\207" [exp start pt stab emacs-lisp-mode-syntax-table regexp syntax-table nil set-syntax-table forward-sexp -1 beginning-of-line "[ 	]*;" t looking-at string-match "\n[ 	]*;+" 0 read inhibit-changing-match-data] 4 (#$ . 4553)])
#@140 Run `pp-eval-expression' on sexp before point.
With argument, pretty-print output into current buffer.
Ignores leading comment characters.
(defalias 'pp-eval-last-sexp #[(arg) "\203\f\301\302\303 !!c\207\304\303 !\207" [arg pp-to-string eval pp-last-sexp pp-eval-expression] 3 (#$ . 5057) "P"])
#@147 Run `pp-macroexpand-expression' on sexp before point.
With argument, pretty-print output into current buffer.
Ignores leading comment characters.
(defalias 'pp-macroexpand-last-sexp #[(arg) "\203\f\301\302\303 !!c\207\304\303 !\207" [arg pp-to-string macroexpand pp-last-sexp pp-macroexpand-expression] 3 (#$ . 5361) "P"])
(provide 'pp)