Mathias Dahl <[EMAIL PROTECTED]> writes: > 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))))
Shameful plug: You can now see this in action in `tumme-display-image' in the newest version of tumme.el: http://www.emacswiki.org/cgi-bin/wiki/Tumme /Mathias _______________________________________________ Help-gnu-emacs mailing list Help-gnu-emacs@gnu.org http://lists.gnu.org/mailman/listinfo/help-gnu-emacs