diff options
| author | Richard M. Stallman | 1995-02-13 18:05:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-02-13 18:05:23 +0000 |
| commit | e5cd8a87da242884420c93cb007f1247296c8b0d (patch) | |
| tree | 70f3dd6666ff1f87508129da27c2988bf9847cab | |
| parent | 2eeeb0d2a0900023029fe5602f30b62694481268 (diff) | |
| download | emacs-e5cd8a87da242884420c93cb007f1247296c8b0d.tar.gz emacs-e5cd8a87da242884420c93cb007f1247296c8b0d.zip | |
(pp-to-string): Fix previous change.
| -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)) |