mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 15:00:34 -08:00
Code Issues Projects Releases Wiki Activity

(pp-eval-expression): Simplify.

Browse source
This commit is contained in:
Stefan Monnier 2004-03-22 15:32:24 +00:00
parent 4f9d876485
commit eaf33a1780
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/pp.el
View file

@ -1,6 +1,6 @@
;;; pp.el --- pretty printer for Emacs Lisp
;; Copyright (C) 1989, 1993, 2001 Free Software Foundation, Inc.
;; Copyright (C) 1989, 1993, 2001, 2004 Free Software Foundation, Inc.
;; Author: Randal Schwartz <merlyn@stonehenge.com>
;; Keywords: lisp
@ -120,12 +120,10 @@ in the variable `values'."
(message "%s" (buffer-substring (point-min) (point)))
))))))
(with-output-to-temp-buffer "*Pp Eval Output*"
(pp (car values)))
(save-excursion
(set-buffer "*Pp Eval Output*")
(emacs-lisp-mode)
(make-local-variable 'font-lock-verbose)
(setq font-lock-verbose nil))))
(pp (car values))
(with-current-buffer standard-output
(emacs-lisp-mode)
(set (make-local-variable 'font-lock-verbose) nil)))))
;;;###autoload
(defun pp-eval-last-sexp (arg)