1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index e07050c5716..13c3d37b79b 100644
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -6571,7 +6571,7 @@ Customized by setting variables `cperl-shrink-wrap-info-frame',
                          ;; Non-functioning under OS/2:
                          (if (eq char-height 1) (setq char-height 18))
                          ;; Title, menubar, + 2 for slack
-                         (- (/ (x-display-pixel-height) char-height) 4)))
+                         (- (/ (display-pixel-height) char-height) 4)))
                  (if (> height max-height) (setq height max-height))
                  ;;(message "was %s doing %s" iniheight height)
                  (if not-loner