diff options
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index e2aaac535f2..a7dfefb3ba3 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el | |||
| @@ -32,8 +32,7 @@ that `read' can handle, whenever this is possible." | |||
| 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)) |