Mathias Dahl <[EMAIL PROTECTED]> writes: > Which means I can use this: > > (defun window-height-pixels () > (let ((line-pixel-height-ratio (/ (+ (frame-pixel-height) 0.0) > (frame-height))) > (column-pixel-width-ratio (/ (+ (frame-pixel-width) 0.0) > (frame-width)))) > (ftruncate (* (window-height) line-pixel-height-ratio)))) > > (defun window-width-pixels () > (let ((column-pixel-width-ratio (/ (+ (frame-pixel-width) 0.0) > (frame-width)))) > (ftruncate (* (window-width) column-pixel-width-ratio))))
And even better: (defun window-height-pixels () (let ((line-pixel-height-ratio (/ (+ (frame-pixel-height) 0.0) (frame-height)))) (truncate (* (window-height) line-pixel-height-ratio)))) (defun window-width-pixels () (let ((column-pixel-width-ratio (/ (+ (frame-pixel-width) 0.0) (frame-width)))) (truncate (* (window-width) column-pixel-width-ratio)))) /Mathias _______________________________________________ Help-gnu-emacs mailing list Help-gnu-emacs@gnu.org http://lists.gnu.org/mailman/listinfo/help-gnu-emacs