diff options
| author | Erik Naggum | 1996-01-19 11:24:34 +0000 |
|---|---|---|
| committer | Erik Naggum | 1996-01-19 11:24:34 +0000 |
| commit | 06115f9d41df9b46be4f7ddd71fd6fcfdc014a62 (patch) | |
| tree | 1d968a6c756b27f827d7a3f80860c1fdfdfaeeda | |
| parent | df07294210c576fffe435122637604d28347953f (diff) | |
| download | emacs-06115f9d41df9b46be4f7ddd71fd6fcfdc014a62.tar.gz emacs-06115f9d41df9b46be4f7ddd71fd6fcfdc014a62.zip | |
(pp-eval-expression): Use `frame-width' instead of `screen-width'.
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 2 |
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." | |||
| 117 | (goto-char (point-min)) | 117 | (goto-char (point-min)) |
| 118 | (end-of-line 1) | 118 | (end-of-line 1) |
| 119 | (if (or (< (1+ (point)) (point-max)) | 119 | (if (or (< (1+ (point)) (point-max)) |
| 120 | (>= (- (point) (point-min)) (screen-width))) | 120 | (>= (- (point) (point-min)) (frame-width))) |
| 121 | (let ((temp-buffer-show-function old-show-function) | 121 | (let ((temp-buffer-show-function old-show-function) |
| 122 | (old-selected (selected-window)) | 122 | (old-selected (selected-window)) |
| 123 | (window (display-buffer buf))) | 123 | (window (display-buffer buf))) |