diff options
| author | Lars Ingebrigtsen | 2019-11-21 14:09:32 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-11-21 14:09:32 +0100 |
| commit | bc4190b3f4c3b47bb2f5a955236a6d7195d8a748 (patch) | |
| tree | 0d19f7842371966f569bf392eaa004a246457ad2 /lisp | |
| parent | 4a13c2af9b98176f2e51061c525313e8af1a0231 (diff) | |
| download | emacs-bc4190b3f4c3b47bb2f5a955236a6d7195d8a748.tar.gz emacs-bc4190b3f4c3b47bb2f5a955236a6d7195d8a748.zip | |
Make pp-buffer into a command
* lisp/emacs-lisp/pp.el (pp-buffer): Make into a command (bug#38306).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index de4cbfc0e10..ca5114eddf9 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el | |||
| @@ -53,6 +53,7 @@ to make output that `read' can handle, whenever this is possible." | |||
| 53 | ;;;###autoload | 53 | ;;;###autoload |
| 54 | (defun pp-buffer () | 54 | (defun pp-buffer () |
| 55 | "Prettify the current buffer with printed representation of a Lisp object." | 55 | "Prettify the current buffer with printed representation of a Lisp object." |
| 56 | (interactive) | ||
| 56 | (goto-char (point-min)) | 57 | (goto-char (point-min)) |
| 57 | (while (not (eobp)) | 58 | (while (not (eobp)) |
| 58 | ;; (message "%06d" (- (point-max) (point))) | 59 | ;; (message "%06d" (- (point-max) (point))) |