'fullscreen 'fullheight

[Sam Steingold <sds@podval.org>]

GNU Emacs 22.0.50.24 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2006-05-01 on quant8

I use Emacs on various machines with different X screen parameters,
and I like Emacs frames to have maximum possible height.
I used to use this:

(defun sds-frame-normaize (&optional frame move)
  "the frame --> top right; almost full size"
  (interactive)
  (unless frame (setq frame (selected-frame)))
  (set-frame-parameter frame 'fullscreen nil)
  (set-frame-parameter frame 'fullscreen 'fullheight)
  (set-frame-parameter frame 'fullscreen nil)
  (when move
    (set-frame-position frame 0 0))
  (let ((height (- (frame-height) (eval-when-compile (if sds-winnt 1 4)))))
    (set-frame-height frame height)
    (set-frame-width frame 80)
    (set-frame-parameter frame 'top '(+ -5))
    height))
    
(I welcome suggestion on how to accomplish the same easier!)

recently I noticed the following unpleasant behavior:

$ emacs -q
(frame-height) C-j
==> 43
(set-frame-parameter nil 'fullscreen 'fullheight) C-j
==> nil
(frame-height) C-j
==> 43

now the X window has the correct size, but the emacs frame does not!
((frame-height) returns the old value)
also, set-frame-parameter takes several seconds to execute!



-- 
Sam Steingold (http://www.podval.org/~sds) on Fedora Core release 5 (Bordeaux)
http://memri.org http://palestinefacts.org http://iris.org.il
http://camera.org http://openvotingconsortium.org http://thereligionofpeace.com
You think Oedipus had a problem -- Adam was Eve's mother.