mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Add autoload cookies.

Browse Source
This commit is contained in:
Noah Friedman 1995-01-03 23:44:44 +00:00
parent a3039e326d
commit ccba0a208c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/pp.el
View File

@ -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.