Lines Matching defs:buffer
48 (set-buffer (generate-new-buffer " pp-to-string"))
55 (prin1 object (current-buffer)))
56 (pp-buffer)
57 (buffer-string))
58 (kill-buffer (current-buffer)))))
61 (defun pp-buffer ()
62 "Prettify the current buffer with printed representation of a Lisp object."
107 (let* ((old-show-function temp-buffer-show-function)
108 ;; Use this function to display the buffer.
111 (temp-buffer-show-function
115 (set-buffer buf)
120 (let ((temp-buffer-show-function old-show-function)
122 (window (display-buffer buf)))
128 (run-hooks 'temp-buffer-show-hook))
130 (message "%s" (buffer-substring (point-min) (point)))
132 (with-output-to-temp-buffer "*Pp Eval Output*"
134 (with-current-buffer standard-output
141 With argument, pretty-print output into current buffer.
151 (setq exp (buffer-substring (point) pt))
157 (setq exp (read (current-buffer)))))