diff options
author | Noah Friedman <friedman@splode.com> | 1995-01-03 23:44:44 +0000 |
---|---|---|
committer | Noah Friedman <friedman@splode.com> | 1995-01-03 23:44:44 +0000 |
commit | ccba0a208cf801bed0517968d8aca8090c900c4a (patch) | |
tree | e3b8002c6f86e40a4e6608fa42e6fd1efee387a3 /lisp/emacs-lisp/pp.el | |
parent | a3039e326d09dd8b4c591b1540c46475bd03d68b (diff) | |
download | emacs-ccba0a208cf801bed0517968d8aca8090c900c4a.tar.gz |
Add autoload cookies.
Diffstat (limited to 'lisp/emacs-lisp/pp.el')
-rw-r--r-- | lisp/emacs-lisp/pp.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 657c1d48854..9f4d5044855 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -87,6 +87,7 @@ that `read' can handle, whenever this is possible." (buffer-string)) (kill-buffer (current-buffer))))) +;;;###autoload (defun pp (object &optional stream) "Output the pretty-printed representation of OBJECT, any Lisp object. Quoting characters are printed when needed to make output that `read' @@ -94,6 +95,7 @@ can handle, whenever this is possible. Output stream is STREAM, or value of `standard-output' (which see)." (princ (pp-to-string object) (or stream standard-output))) +;;;###autoload (defun pp-eval-expression (expression) "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 @@ -129,6 +131,7 @@ value." (set-buffer "*Pp Eval Output*") (emacs-lisp-mode)))) +;;;###autoload (defun pp-eval-last-sexp (arg) "Run `pp-eval-expression' on sexp before point (which see). With argument, pretty-print output into current buffer. |