# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1213242536 0
# Node ID fc8e5aad9764748bd24a7d95666ff12a8c89b812
# Parent  c5f85ede892d00378e30e4b24bcdcc9a5612afcb
(cperl-info-on-command): Use display-pixel-height rather than
x-display-pixel-height.

diff -r c5f85ede892d -r fc8e5aad9764 lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Thu Jun 12 03:48:15 2008 +0000
+++ b/lisp/progmodes/cperl-mode.el	Thu Jun 12 03:48:56 2008 +0000
@@ -6571,7 +6571,7 @@
 			 ;; 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