;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Aug 14 16:17:35 1994
;;; from file /home/fsf/rms/e19/lisp/pp.el
;;; emacs version 19.25.93.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/home/fsf/rms/e19/lisp/pp.el' was compiled for Emacs 19"))

(defvar pp-escape-newlines t "\
*Value of print-escape-newlines used by pp-* functions.")
(defalias 'pp-to-string #[(object) "ЉАБ!q€ВЋГ €\fЖp\"€)eb€m„Ц ИЙ!ѓ- ИЙ!ѓ Кu€‚! ИЛ!ѓ| К”КVѓ| К”SfМUѓ| ЉН”b€О €ПР`f\")ѓ| К”SК•|€Сc€ОК!€ИТ!ѓq У”У•|€‚u ФХ!€ЦК!€‚ ЧШЩЏѓў ЪК!€ЫЬx€`ЫЬw€`|€ПЭ`Sf\"„ Юc€‚ ЧЯаЏѓР Иб!ѓµ Кu€‚© ЫЬx€`ЫЬw€`|€ПЭ`Sf\"„ Юc€‚ db€‚ eb€в €г *‡" [generate-new-buffer " pp-to-string" ((byte-code "Аp!‡" [kill-buffer] 2)) emacs-lisp-mode pp-escape-newlines print-escape-newlines prin1 object looking-at "\\s(" 1 "\\(quote[ 	]+\\)\\([^.)]\\)" 40 2 forward-sexp char-equal 41 "'" "[ 	]*)" 0 error "Malformed quote" backward-sexp err-var (byte-code "АБВ!€‡" [t down-list 1] 3) ((error)) backward-char " 	" nil 39 10 (byte-code "АБВ!€‡" [t up-list 1] 3) ((error)) "\\s)" indent-sexp buffer-string] 3 "\
Return a string containing the pretty-printed representation of OBJECT,
any Lisp object.  Quoting characters are used when needed to make output
that `read' can handle, whenever this is possible."])
(defalias 'pp #[(object &optional stream) "АБ\n!†	 \f\"‡" [princ pp-to-string object stream standard-output] 3 "\
Output the pretty-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)."])
(defalias 'pp-eval-expression #[(expression) "А	!\nBГ\f!ЕVѓ Ж‚ ЗЙИ!… J)†# КММНђО\n@!‘€ЉНq€П ,‡" [eval expression values string-to-int emacs-version 18 temp-buffer-show-function temp-buffer-show-hook sym boundp display-buffer old-show-hook #[(buf) "Љq€eb€Б€`TdW„ `eZВ Yѓ# eb€!‚- ДЕe`{\"€Ж!)‡" [buf 1 screen-width old-show-hook message "%s" delete-windows-on] 4] "*Pp Eval Output*" pp emacs-lisp-mode] 3 "\
Evaluate EXPRESSION and pretty-print value into a new display buffer.
If the pretty-printed value fits on one line, the message line is used
instead.  Value is also consed on to front of variable  values 's
value." "xPp-eval: "])
(defalias 'pp-eval-last-sexp #[(arg) "А `Б‰Ж!€ЉИЙ!€ЉКy€ЛМ!)ѓC `\f{НО\n#ѓ< К”T\nКO\nК•БOP‚\" П\n!‚G Пp!)Ж!€ѓZ СТ\n!!c‚] У\n!,‡" [syntax-table nil exp start pt stab set-syntax-table emacs-lisp-mode-syntax-table forward-sexp -1 0 looking-at "[ 	]*;" string-match "\n[ 	]*;+" read arg pp-to-string eval pp-eval-expression] 4 "\
Run `pp-eval-expression' on sexp before point (which see).
With argument, pretty-print output into current buffer.
Ignores leading comment characters." "P"])
(provide (quote pp))