summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/pp.el
diff options
context:
space:
mode:
authorNoah Friedman <friedman@splode.com>1995-01-03 23:44:44 +0000
committerNoah Friedman <friedman@splode.com>1995-01-03 23:44:44 +0000
commitccba0a208cf801bed0517968d8aca8090c900c4a (patch)
treee3b8002c6f86e40a4e6608fa42e6fd1efee387a3 /lisp/emacs-lisp/pp.el
parenta3039e326d09dd8b4c591b1540c46475bd03d68b (diff)
downloademacs-ccba0a208cf801bed0517968d8aca8090c900c4a.tar.gz
Add autoload cookies.
Diffstat (limited to 'lisp/emacs-lisp/pp.el')
-rw-r--r--lisp/emacs-lisp/pp.el3
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.