;ELC   
;;; compiled by jwz@thalidomide on Mon Dec 27 18:35:22 1993
;;; from file /th/jwz/emacs19/lisp/utils/pp.el
;;; emacs version 19.9 Lucid (beta6).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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 "This file was compiled for Emacs 19."))

(defvar pp-escape-newlines t "\
*Value of print-escape-newlines used by pp-* functions.")
(fset 'pp-to-string #[(object) "ŠÀÁ!qˆÂŽÃ ˆÆp\"ˆ)ebˆm„Æ ÈÉ!«ŠÈÉ!«rÊuˆªvÈË!«ÃÊ”ÊV«½Ê”SfÌU«µŠÍ”bˆÎ ˆÏÐ`f\")«¥Ê”SÊ•|ˆÑcˆÎÊ!ˆÈÒ!«ˆÓ”Ó•|ˆª„ÔÕ!ˆÖÊ!ˆª%×ØÙ«ÚÊ!ˆÛÜxˆ`ÛÜwˆ`|ˆÏÝ`Sf\"¬Þcˆª×ßà«¥Èá!«…ÊuˆªvÛÜ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."])
(fset 'pp #[(object &optional stream) "ÀÁ\n!®\"‡" [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)."])
(fset 'pp-eval-expression #[(expression) "À	!\nBÃ!Å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: "])
(fset 'pp-eval-last-sexp #[(arg) "À `Á‰Æ!ˆŠÈÉ!ˆŠÊyˆËÌ!)«¢`{ÍÎ\n#«‘Ê”T\nÊO\nÊ•ÁOPªhÏ\n!ª„Ïp!)Æ!ˆ«ˆÑÒ\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 'pp)