From: Glenn Morris <rgm@gnu.org>
Date: Thu, 12 Jun 2008 03:48:56 +0000 (+0000)
Subject: (cperl-info-on-command): Use display-pixel-height rather than
X-Git-Tag: emacs-pretest-23.0.90~4870
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d431decb9e2adf046fbf833a066fbf597074b311;p=emacs.git

(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 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