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
[email protected]
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs
