# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 792698723 0
# Node ID bd193969988da0d0d378e9bed4027072aaa3e327
# Parent  65e10f44e7657666f07c78846a7139a33565a9c0
(pp-to-string): Fix previous change.

diff -r 65e10f44e765 -r bd193969988d lisp/emacs-lisp/pp.el
--- a/lisp/emacs-lisp/pp.el	Mon Feb 13 17:55:17 1995 +0000
+++ b/lisp/emacs-lisp/pp.el	Mon Feb 13 18:05:23 1995 +0000
@@ -32,8 +32,7 @@
     (set-buffer (generate-new-buffer " pp-to-string"))
     (unwind-protect
 	(progn
-	  (lisp-mode-variables)
-	  (set-syntax-table emacs-lisp-mode-syntax-table)
+	  (lisp-mode-variables t)
 	  (let ((print-escape-newlines pp-escape-newlines))
 	    (prin1 object (current-buffer)))
 	  (goto-char (point-min))