diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-02-13 03:01:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-02-13 03:01:16 +0000 |
| commit | 9796f12dfd4e6c445a135aeba3f46836d5a3aebc (patch) | |
| tree | 6b91dd5844523c2b329e67423c0fa0b5781abf53 /lisp/emacs-lisp | |
| parent | 2c5b706023fc303d467cdaa1d40f09de28b2e717 (diff) | |
| download | emacs-9796f12dfd4e6c445a135aeba3f46836d5a3aebc.tar.gz emacs-9796f12dfd4e6c445a135aeba3f46836d5a3aebc.tar.bz2 emacs-9796f12dfd4e6c445a135aeba3f46836d5a3aebc.zip | |
(pp-to-string): Don't use emacs-lisp-mode.
Just do the parts of it we actually want.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 9f4d5044855..e2aaac535f2 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -32,7 +32,8 @@ that `read' can handle, whenever this is possible." (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)) |