Mercurial > emacs
comparison lisp/progmodes/cperl-mode.el @ 95832:fc8e5aad9764
(cperl-info-on-command): Use display-pixel-height rather than
x-display-pixel-height.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 12 Jun 2008 03:48:56 +0000 |
| parents | 52b7a8c22af5 |
| children | a90a9fcdc77d |
comparison
equal
deleted
inserted
replaced
| 95831:c5f85ede892d | 95832:fc8e5aad9764 |
|---|---|
| 6569 (/ (* (- frheight 3) cperl-max-help-size) 100) | 6569 (/ (* (- frheight 3) cperl-max-help-size) 100) |
| 6570 (setq char-height (frame-char-height)) | 6570 (setq char-height (frame-char-height)) |
| 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 |
| 6578 (enlarge-window (- height iniheight)) | 6578 (enlarge-window (- height iniheight)) |
| 6579 (set-frame-height (window-frame win) (1+ height))))) | 6579 (set-frame-height (window-frame win) (1+ height))))) |