full screen problems

[Andrea Crotti]

I use the following to enable full screen mode

(defun full (&optional f)
  (interactive)
  (if
      mac
      ;; included in emacs 23.2
      (ns-toggle-fullscreen)
    (set-frame-parameter f 'fullscreen
                         (if (frame-parameter f 'fullscreen) nil 'fullboth))))

;; this toogle the fullscreen for every new frame (window) created
 (add-hook 'after-make-frame-functions 'full)

on "GNU Emacs 23.2.1 (x86_64-apple-darwin10.3.0, NS apple-appkit-1038.29)
of 2010-05-09 on linc"

Now there are two problems:
1. I just want to enable it not toggle, but that function only support
   toggling apparently, and I don't see a variable to check if I'm
   already in full screen

2. 'full called from the hook doesn't work well, since the minibuffer
   goes out of the screen, somehow everything is "pushed" down


Trying with "emacs -Q" very strangely the hook doesn't work at all, but
if I call 'full manually it works correctly...
Any suggestions?
Thanks,
Andrea