diff options
| author | Glenn Morris | 2008-06-12 03:48:56 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-06-12 03:48:56 +0000 |
| commit | d431decb9e2adf046fbf833a066fbf597074b311 (patch) | |
| tree | d1174c1113ba8401ef6818c72c00c7ac795c44e5 | |
| parent | 575b6746370055b271a0b2133584b7b022192515 (diff) | |
| download | emacs-d431decb9e2adf046fbf833a066fbf597074b311.tar.gz emacs-d431decb9e2adf046fbf833a066fbf597074b311.zip | |
(cperl-info-on-command): Use display-pixel-height rather than
x-display-pixel-height.
| -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 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', | |||
| 6571 | ;; Non-functioning under OS/2: | 6571 | ;; Non-functioning under OS/2: |
| 6572 | (if (eq char-height 1) (setq char-height 18)) | 6572 | (if (eq char-height 1) (setq char-height 18)) |
| 6573 | ;; Title, menubar, + 2 for slack | 6573 | ;; Title, menubar, + 2 for slack |
| 6574 | (- (/ (x-display-pixel-height) char-height) 4))) | 6574 | (- (/ (display-pixel-height) char-height) 4))) |
| 6575 | (if (> height max-height) (setq height max-height)) | 6575 | (if (> height max-height) (setq height max-height)) |
| 6576 | ;;(message "was %s doing %s" iniheight height) | 6576 | ;;(message "was %s doing %s" iniheight height) |
| 6577 | (if not-loner | 6577 | (if not-loner |