bug#6155: Crashes on w32 because of bad frame initialization

[Juanma Barranquero]

> This should perhaps be

No, I don't think it *should*.

>  (let ((frame-alist (delete '(menu-bar-lines . 1) default-frame-alist)))

Unnecessary. `assoc' and friends will find the first matching key.

>    (setq frame-alist (cons '(menu-bar-lines . t) frame-alist))

Identical to my `push', only I was using `default-frame-alist' (on purpose).

>    (make-frame frame-alist))

Unnecessary in my example. `make-frame' already uses `default-frame-alist'.

Please try

(let ((default-frame-alist default-frame-alist))
  (push '(menu-bar-lines . 0) default-frame-alist)
  (make-frame))

to see that it works.

    Juanma