1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index f7e3a1ad25c..f7e6afb4952 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -117,7 +117,7 @@ value."
                (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)))