;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sat May 6 20:37:51 1995 ;;; from file /home/fsf/rms/e19/lisp/pp.el ;;; emacs version 19.28.90.6. ;;; 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")) #@57 *Value of print-escape-newlines used by pp-* functions. (defvar pp-escape-newlines t (#$ . -470)) #@197 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-to-string #[(object) "!qŽ! p\")ebm!/!u#!~˔V~˔SfU~Δb `f\")~˔S˕|c!!sԔԕ|w!!ڏ!x`w`|`Sf\"cᏃ!ux`w`|`Sf\"cdbeb *" [generate-new-buffer " pp-to-string" ((byte-code "p!" [kill-buffer] 2)) lisp-mode-variables t 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 (#$ . 575)]) #@247 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 #[(object &optional stream) "\n! \f\"" [princ pp-to-string object stream standard-output] 3 (#$ . 1513)]) #@215 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. (defalias 'pp-eval-expression #[(expression) " !\nB Ɛ\n@!q +" [eval expression values temp-buffer-show-function old-show-function #[(buf) "qeb`TdW`eZ Y> !eb!!ˎ!!,De`{\")" [buf 1 screen-width old-show-function selected-window display-buffer window old-selected temp-buffer-show-function make-frame-visible window-frame ((select-window old-selected)) select-window run-hooks temp-buffer-show-hook message "%s"] 4] "*Pp Eval Output*" pp emacs-lisp-mode] 3 (#$ . 1892) "xPp-eval: "]) #@152 Run `pp-eval-expression' on sexp before point (which see). With argument, pretty-print output into current buffer. Ignores leading comment characters. (defalias 'pp-eval-last-sexp #[(arg) " `!!y!)C`\f{\n #<ʔT\n O\nʕOP\"\n!Gp!) !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 (#$ . 2648) "P"]) (provide (quote pp))