diff options
| author | Noah Friedman | 1995-01-03 23:44:44 +0000 |
|---|---|---|
| committer | Noah Friedman | 1995-01-03 23:44:44 +0000 |
| commit | ccba0a208cf801bed0517968d8aca8090c900c4a (patch) | |
| tree | e3b8002c6f86e40a4e6608fa42e6fd1efee387a3 | |
| parent | a3039e326d09dd8b4c591b1540c46475bd03d68b (diff) | |
| download | emacs-ccba0a208cf801bed0517968d8aca8090c900c4a.tar.gz emacs-ccba0a208cf801bed0517968d8aca8090c900c4a.zip | |
Add autoload cookies.
| -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." | |||
| 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. |
| 92 | Quoting characters are printed when needed to make output that `read' | 93 | Quoting characters are printed when needed to make output that `read' |
| @@ -94,6 +95,7 @@ can handle, whenever this is possible. | |||
| 94 | Output stream is STREAM, or value of `standard-output' (which see)." | 95 | Output 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. |
| 99 | If the pretty-printed value fits on one line, the message line is used | 101 | If 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). |
| 134 | With argument, pretty-print output into current buffer. | 137 | With argument, pretty-print output into current buffer. |