(cperl-info-on-command): Use display-pixel-height rather than

x-display-pixel-height.

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index e07050c57167b46e2b338307f7617449590b004c..13c3d37b79b1f5630b613ed1c9f951f4f52b7566 100644 (file)
--- 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