unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* 'fullscreen 'fullheight
@ 2006-05-01 21:42 Sam Steingold
  2006-05-02 16:25 ` Kevin Rodgers
  2006-05-03  8:02 ` Kim F. Storm
  0 siblings, 2 replies; 3+ messages in thread
From: Sam Steingold @ 2006-05-01 21:42 UTC (permalink / raw)


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.

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2006-05-03  8:02 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2006-05-01 21:42 'fullscreen 'fullheight Sam Steingold
2006-05-02 16:25 ` Kevin Rodgers
2006-05-03  8:02 ` Kim F. Storm

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).