Mercurial > emacs

comparison lisp/emacs-lisp/pp.el @ 10724:1bc137a2c4eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pp-to-string): Don't use emacs-lisp-mode. Just do the parts of it we actually want.
author Richard M. Stallman <rms@gnu.org>
date Mon, 13 Feb 1995 03:01:16 +0000
parents aa393c4b380c
children bd193969988d
comparison
equal deleted inserted replaced
10723:73bcb70f4790 10724:1bc137a2c4eb
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 (emacs-lisp-mode) 35 (lisp-mode-variables)
36 (set-syntax-table emacs-lisp-mode-syntax-table)
36 (let ((print-escape-newlines pp-escape-newlines)) 37 (let ((print-escape-newlines pp-escape-newlines))
37 (prin1 object (current-buffer))) 38 (prin1 object (current-buffer)))
38 (goto-char (point-min)) 39 (goto-char (point-min))
39 (while (not (eobp)) 40 (while (not (eobp))
40 ;; (message "%06d" (- (point-max) (point))) 41 ;; (message "%06d" (- (point-max) (point)))