diff options
| author | Glenn Morris <[email protected]> | 2008-06-12 03:48:56 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2008-06-12 03:48:56 +0000 |
| commit | d431decb9e2adf046fbf833a066fbf597074b311 (patch) | |
| tree | d1174c1113ba8401ef6818c72c00c7ac795c44e5 /lisp/progmodes/cperl-mode.el | |
| parent | 575b6746370055b271a0b2133584b7b022192515 (diff) | |
(cperl-info-on-command): Use display-pixel-height rather than
x-display-pixel-height.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index e07050c571..13c3d37b79 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 |