Kevin Rodgers <[EMAIL PROTECTED]> writes:

> Mathias Dahl wrote:
> > (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))))
> 
> I think (+ (frame-pixel-DIMENSION) 0.0) can be replaced by
> (float (frame-pixel-DIMENSION))

It can :), thanks! Looks better.

/Mathias
_______________________________________________
Help-gnu-emacs mailing list
Help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

Reply via email to