bug#17046: 24.3.50; On startup emacs frame has no minibuffer or windows decorations

[Juanma Barranquero <lekktu@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 449 bytes --]

On Mon, Mar 24, 2014 at 4:22 PM, Robert Marshall <robert@capuchin.co.uk> wrote:

> With bug:
>
> #<frame emacs@poulenc 0x8725ae0> was :reused

So it doesn't depend on the window-state.

If you're not yet bored to death, please try with the attached .el
file. It should behave as in the previous cases, but I want to see the
real, final frame parameter list of the reused (buggy) frame and the
created (correct) one.

(Thanks for your patience, BTW)

[-- Attachment #2: bug17046-c.el --]
[-- Type: application/octet-stream, Size: 3698 bytes --]

;;; bug17046.el with two windows ;;;

(require 'frameset)

(defun frameset--restore-frame (parameters window-state filters force-onscreen)
  (let* ((fullscreen (cdr (assq 'fullscreen parameters)))
	 (lines (assq 'tool-bar-lines parameters))
	 (filtered-cfg (frameset-filter-params parameters filters nil))
	 (display (cdr (assq 'display filtered-cfg))) ;; post-filtering
	 alt-cfg frame)

    (setq filtered-cfg (assq-delete-all 'tool-bar-lines filtered-cfg))
    (push '(tool-bar-lines . 0) filtered-cfg)

    (setq frame (and frameset--reuse-list
		     (frameset--reuse-frame display filtered-cfg)))
    (if frame
	(puthash frame :reused frameset--action-map)
      (setq frame (make-frame-on-display display
					 (cons '(visibility)
					       (frameset--initial-params filtered-cfg))))
      (puthash frame :created frameset--action-map))
    (let ((sep (make-string 80 ?-)))
      (message "%s\n%S was %s with:\n  %s\n%s\n"
	       sep frame (gethash frame frameset--action-map)
	       (mapconcat (lambda (o) (format "%s" o)) (sort (frame-parameters frame)
							(lambda (a b) (string< (car a) (car b))))
			  "\n  ")
	       sep))

    (modify-frame-parameters frame
			     (if (eq (frame-parameter frame 'fullscreen) fullscreen)
				 (assq-delete-all 'fullscreen filtered-cfg)
			       filtered-cfg))

    (when (and force-onscreen
	       (not (eq (frame-parameter frame 'visibility) 'icon)))
      (frameset-move-onscreen frame force-onscreen))

    (when lines (push lines alt-cfg))
    (when alt-cfg (modify-frame-parameters frame alt-cfg))
    frame))

(read-event nil nil 1)
(setq desktop-saved-frameset
      [frameset
       1
       (21291 19570 712781 440000)
       (desktop . "206")
       "robert@poulenc" nil nil
       (( ;; ********** FRAME 1
	 (
	  (frameset--id . "DA9D-E03E-DF32-EAB7")
	  (frameset--mini t . t)
	  (minibuffer . t)
	  (visibility . t)
;; ******   Comment this next line to prevent the bug appearing
	  (display . ":0")
	  (height . 30)
	  (width . 120))
	 ;; ********** WINDOW TREE 1
	 ((min-height . 8)
	  (min-width . 10)
	  (min-height-ignore . 4)
	  (min-width-ignore . 6)
	  (min-height-safe . 2)
	  (min-width-safe . 2)
	  (min-pixel-height . 144)
	  (min-pixel-width . 80)
	  (min-pixel-height-ignore . 72)
	  (min-pixel-width-ignore . 48)
	  (min-pixel-height-safe . 36)
	  (min-pixel-width-safe . 16))
	 vc
	 (pixel-width . 992)
	 (pixel-height . 522)
	 (total-width . 124)
	 (total-height . 29)
	 (normal-height . 1.0)
	 (normal-width . 1.0)
	 (combination-limit)
	 (leaf (pixel-width . 992)
	       (pixel-height . 275)
	       (total-width . 124)
	       (total-height . 15)
	       (normal-height . 0.5172413793103448)
	       (normal-width . 1.0)
	       (buffer "*scratch*" (selected . t)
		       (hscroll . 0)
		       (fringes 8 8 nil)
		       (margins nil)
		       (scroll-bars 16 2 t nil)
		       (vscroll . 0)
		       (dedicated)
		       (point . 20906)
		       (start . 20858)))
	 (leaf (last . t)
	       (pixel-width . 992)
	       (pixel-height . 247)
	       (total-width . 124)
	       (total-height . 14)
	       (normal-height . 0.4827586206896552)
	       (normal-width . 1.0)
	       (buffer "*Messages*" (selected)
		       (hscroll . 0)
		       (fringes 8 8 nil)
		       (margins nil)
		       (scroll-bars 16 2 t nil)
		       (vscroll . 0)
		       (dedicated)
		       (point . 3612)
		       (start . 3165)))))])

(frameset-restore desktop-saved-frameset
                  :reuse-frames t
;		  :force-display t
                  :force-onscreen t
		  :cleanup-frames t)

;;; end ;;;