# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 822050674 0
# Node ID ec298b8bee29f0d1df1b2f803bfaca0a52ae768c
# Parent  e47d5fcad4be8c22a0b0570520318dff10e149de
(pp-eval-expression): Use `frame-width' instead of `screen-width'.

diff -r e47d5fcad4be -r ec298b8bee29 lisp/emacs-lisp/pp.el
--- a/lisp/emacs-lisp/pp.el	Fri Jan 19 11:10:56 1996 +0000
+++ b/lisp/emacs-lisp/pp.el	Fri Jan 19 11:24:34 1996 +0000
@@ -117,7 +117,7 @@
 	       (goto-char (point-min))
 	       (end-of-line 1)
 	       (if (or (< (1+ (point)) (point-max))
-		       (>= (- (point) (point-min)) (screen-width)))
+		       (>= (- (point) (point-min)) (frame-width)))
 		   (let ((temp-buffer-show-function old-show-function)
 			 (old-selected (selected-window))
 			 (window (display-buffer buf)))