(pp-eval-expression): Set font-lock-default locally to nil.

9614b740 · Richard M. Stallman · 9a0fc208 · 9614b740
Commit 9614b740 authored Sep 12, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/emacs-lisp/pp.el lisp/emacs-lisp/pp.el +3 -1

No files found.
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -134,7 +134,9 @@ value."
      (pp (car values)))
    (save-excursion
      (set-buffer "*Pp Eval Output*")
-      (emacs-lisp-mode))))
+      (emacs-lisp-mode)
+      (make-local-variable 'font-lock-verbose)
+      (setq font-lock-verbose nil))))

 ;;;###autoload
 (defun pp-eval-last-sexp (arg)