Mercurial > emacs
comparison lisp/emacs-lisp/pp.el @ 56274:25c3950468a9
(pp-buffer): Add autoload.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 28 Jun 2004 23:08:31 +0000 |
| parents | 7bb617df33db |
| children | dd7fb3231397 59dcbfe97385 |
comparison
equal
deleted
inserted
replaced
| 56273:610a9a9c39d0 | 56274:25c3950468a9 |
|---|---|
| 52 (prin1 object (current-buffer))) | 52 (prin1 object (current-buffer))) |
| 53 (pp-buffer) | 53 (pp-buffer) |
| 54 (buffer-string)) | 54 (buffer-string)) |
| 55 (kill-buffer (current-buffer))))) | 55 (kill-buffer (current-buffer))))) |
| 56 | 56 |
| 57 ;;;###autoload | |
| 57 (defun pp-buffer () | 58 (defun pp-buffer () |
| 58 "Prettify the current buffer with printed representation of a Lisp object." | 59 "Prettify the current buffer with printed representation of a Lisp object." |
| 59 (goto-char (point-min)) | 60 (goto-char (point-min)) |
| 60 (while (not (eobp)) | 61 (while (not (eobp)) |
| 61 ;; (message "%06d" (- (point-max) (point))) | 62 ;; (message "%06d" (- (point-max) (point))) |