aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNoah Friedman1995-01-03 23:44:44 +0000
committerNoah Friedman1995-01-03 23:44:44 +0000
commitccba0a208cf801bed0517968d8aca8090c900c4a (patch)
treee3b8002c6f86e40a4e6608fa42e6fd1efee387a3
parenta3039e326d09dd8b4c591b1540c46475bd03d68b (diff)
downloademacs-ccba0a208cf801bed0517968d8aca8090c900c4a.tar.gz
emacs-ccba0a208cf801bed0517968d8aca8090c900c4a.zip
Add autoload cookies.
-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."
87 (buffer-string)) 87 (buffer-string))
88 (kill-buffer (current-buffer))))) 88 (kill-buffer (current-buffer)))))
89 89
90;;;###autoload
90(defun pp (object &optional stream) 91(defun pp (object &optional stream)
91 "Output the pretty-printed representation of OBJECT, any Lisp object. 92 "Output the pretty-printed representation of OBJECT, any Lisp object.
92Quoting characters are printed when needed to make output that `read' 93Quoting characters are printed when needed to make output that `read'
@@ -94,6 +95,7 @@ can handle, whenever this is possible.
94Output stream is STREAM, or value of `standard-output' (which see)." 95Output stream is STREAM, or value of `standard-output' (which see)."
95 (princ (pp-to-string object) (or stream standard-output))) 96 (princ (pp-to-string object) (or stream standard-output)))
96 97
98;;;###autoload
97(defun pp-eval-expression (expression) 99(defun pp-eval-expression (expression)
98 "Evaluate EXPRESSION and pretty-print value into a new display buffer. 100 "Evaluate EXPRESSION and pretty-print value into a new display buffer.
99If the pretty-printed value fits on one line, the message line is used 101If the pretty-printed value fits on one line, the message line is used
@@ -129,6 +131,7 @@ value."
129 (set-buffer "*Pp Eval Output*") 131 (set-buffer "*Pp Eval Output*")
130 (emacs-lisp-mode)))) 132 (emacs-lisp-mode))))
131 133
134;;;###autoload
132(defun pp-eval-last-sexp (arg) 135(defun pp-eval-last-sexp (arg)
133 "Run `pp-eval-expression' on sexp before point (which see). 136 "Run `pp-eval-expression' on sexp before point (which see).
134With argument, pretty-print output into current buffer. 137With argument, pretty-print output into current buffer.