`make-frame' makes taller frame than the specified height

[Katsumi Yamaoka]

Hi,

Is it only to me?  The height of the new frame grows by 3 when
evaluating the following form:

(let ((params (frame-parameters (selected-frame))))
  (make-frame (delq (assq 'minibuffer params) params)))

It occurs only in Emacs which was built as:

GNU Emacs 22.0.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)

Furthermore, I also tried it with:

GNU Emacs 22.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.6.7)

That problem is not there.  (However, the new frame is not
created in the same position.  It seems to be due to the window
manager, though.)

I did them in the Fedora Core 4 platform.  Since `raise-frame'
does nothing in this platform, I'm trying to advise it to be
replaced with `delete-frame' and `make-frame' as follows:

(defadvice raise-frame (around make-new-frame-in-the-same-place
                               (&optional frame) activate)
  "Make it work."
  (unless frame
    (setq frame (selected-frame)))
  (let* ((params (frame-parameters frame))
         (height (assq 'height params)))
    (setcdr height (- (cdr height) 3))
    (make-frame (delq (assq 'minibuffer params) params))
    (delete-frame frame)))

Regards,