diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-04 19:06:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-04 19:06:02 +0000 |
| commit | 15b605aea89b34651452edf4d16af07e262b50b7 (patch) | |
| tree | 85c58158374c39e82b4ba87bf97a9550c4b1e1fa /lisp/emacs-lisp/pp.el | |
| parent | 8bc15fa853bc51247e2a853e8ff74412b2ba5976 (diff) | |
| download | emacs-15b605aea89b34651452edf4d16af07e262b50b7.tar.gz | |
(pp-to-string): Use emacs-lisp-mode-sytax-table.
Diffstat (limited to 'lisp/emacs-lisp/pp.el')
| -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 013ce8402d3..34c8857aec9 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -34,7 +34,8 @@ that `read' can handle, whenever this is possible." (set-buffer (generate-new-buffer " pp-to-string")) (unwind-protect (progn - (lisp-mode-variables t) + (lisp-mode-variables nil) + (set-syntax-table emacs-lisp-mode-syntax-table) (let ((print-escape-newlines pp-escape-newlines)) (prin1 object (current-buffer))) (goto-char (point-min)) |