Mercurial > emacs
changeset 10724:1bc137a2c4eb
(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 | 73bcb70f4790 |
| children | 24958130d147 |
| files | lisp/emacs-lisp/pp.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/pp.el Sun Feb 12 21:10:04 1995 +0000 +++ b/lisp/emacs-lisp/pp.el Mon Feb 13 03:01:16 1995 +0000 @@ -32,7 +32,8 @@ (set-buffer (generate-new-buffer " pp-to-string")) (unwind-protect (progn - (emacs-lisp-mode) + (lisp-mode-variables) + (set-syntax-table emacs-lisp-mode-syntax-table) (let ((print-escape-newlines pp-escape-newlines)) (prin1 object (current-buffer))) (goto-char (point-min))