From d431decb9e2adf046fbf833a066fbf597074b311 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 12 Jun 2008 03:48:56 +0000 Subject: [PATCH] (cperl-info-on-command): Use display-pixel-height rather than x-display-pixel-height. --- lisp/progmodes/cperl-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.2