mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(cperl-info-on-command): Use display-pixel-height rather than

Browse source 
x-display-pixel-height.
This commit is contained in:
Glenn Morris 2008-06-12 03:48:56 +00:00
parent 575b674637
commit d431decb9e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/progmodes/cperl-mode.el
View file

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