Mercurial > emacs

comparison lisp/emacs-lisp/pp.el @ 10732:bd193969988d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pp-to-string): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 13 Feb 1995 18:05:23 +0000
parents 1bc137a2c4eb
children 084c36d46615
comparison
equal deleted inserted replaced
10731:65e10f44e765 10732:bd193969988d
30 that `read' can handle, whenever this is possible." 30 that `read' can handle, whenever this is possible."
31 (save-excursion 31 (save-excursion
32 (set-buffer (generate-new-buffer " pp-to-string")) 32 (set-buffer (generate-new-buffer " pp-to-string"))
33 (unwind-protect 33 (unwind-protect
34 (progn 34 (progn
35 (lisp-mode-variables) 35 (lisp-mode-variables t)
36 (set-syntax-table emacs-lisp-mode-syntax-table)
37 (let ((print-escape-newlines pp-escape-newlines)) 36 (let ((print-escape-newlines pp-escape-newlines))
38 (prin1 object (current-buffer))) 37 (prin1 object (current-buffer)))
39 (goto-char (point-min)) 38 (goto-char (point-min))
40 (while (not (eobp)) 39 (while (not (eobp))
41 ;; (message "%06d" (- (point-max) (point))) 40 ;; (message "%06d" (- (point-max) (point)))