Some fixes and improvements for desktop frame restoration.

It is still experimental and disabled by default.

* lisp/desktop.el (desktop--save-windows): Put the selected frame at
  the head of the list.
  (desktop--make-full-frame): New function.
  (desktop--restore-windows): Try to re-select the frame that was
  selected upon saving.  Do not abort if some frames fail to restore,
  just show an error message and contnue.  Set up maximized frames so
  they have default non-maximized dimensions.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa2b3505411636bb3d5838b7b30b0f8bae0f3091..4100efc4d6dc885dbed526b57ab008b77f84ade1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2013-06-30  Juanma Barranquero  <lekktu@gmail.com>
+
+       Some fixes and improvements for desktop frame restoration.
+       It is still experimental and disabled by default.
+       * desktop.el (desktop--save-windows): Put the selected frame at
+       the head of the list.
+       (desktop--make-full-frame): New function.
+       (desktop--restore-windows): Try to re-select the frame that was
+       selected upon saving.  Do not abort if some frames fail to restore,
+       just show an error message and contnue.  Set up maximized frames so
+       they have default non-maximized dimensions.
+
 2013-06-30  Dmitry Gutov  <dgutov@yandex.ru>
 
        * progmodes/ruby-mode.el (ruby-syntax-propertize-function): Don't

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 68c2b26b5d74b41e2cc245d31900ff89ff7ba20f..7d4ea20c210a2bbb143d7d41d05048dca8c4f824 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -900,7 +900,8 @@ Internal use only."
             (mapcar (lambda (frame)
                       (cons (desktop--filter-frame-parms frame)
                             (window-state-get (frame-root-window frame) t)))
-                    (frame-list))))
+                    (cons (selected-frame)
+                          (delq (selected-frame) (frame-list))))))
   (desktop-outvar 'desktop--saved-states))
 
 ;;;###autoload
@@ -1010,28 +1011,53 @@ This function also sets `desktop-dirname' to nil."
        (setq frames (cdr frames))))
     result))
 
+(defun desktop--make-full-frame (full display config)
+  (let ((width (and (eq full 'fullheight) (cdr (assq 'width config))))
+       (height (and (eq full 'fullwidth) (cdr (assq 'height config))))
+       (params '((visibility)))
+       frame)
+    (when width
+      (setq params (append `((user-size . t) (width . ,width)) params)))
+    (when height
+      (setq params (append `((user-size . t) (height . ,height)) params)))
+    (setq frame (make-frame-on-display display params))
+    (modify-frame-parameters frame config)
+    frame))
+
 (defun desktop--restore-windows ()
   "Restore window/frame configuration.
 Internal use only."
   (when (and desktop-save-windows desktop--saved-states)
-    (condition-case nil
-       (let ((frames (frame-list)))
-         (dolist (state desktop--saved-states)
+    (let ((frames (frame-list))
+         (selected nil))
+      (dolist (state desktop--saved-states)
+       (condition-case err
            (let* ((fconfig (car state))
                   (display (cdr (assq 'display fconfig)))
-                  (frame (desktop--find-frame-in-display frames display)))
-             (if (not frame)
-                 ;; no frames in the display -- make a new one
-                 (setq frame (make-frame-on-display display fconfig))
-               ;; found one -- reuse and remove from list
-               (setq frames (delq frame frames))
-               (modify-frame-parameters frame fconfig))
+                  (full (cdr (assq 'fullscreen fconfig)))
+                  (frame (and (not full)
+                              (desktop--find-frame-in-display frames display))))
+             (cond (full
+                    ;; treat fullscreen/maximized frames specially
+                    (setq frame (desktop--make-full-frame full display fconfig)))
+                   (frame
+                    ;; found a frame in the right display -- reuse
+                    (setq frames (delq frame frames))
+                    (modify-frame-parameters frame fconfig))
+                   (t
+                    ;; no frames in the display -- make a new one
+                    (setq frame (make-frame-on-display display fconfig))))
              ;; restore windows
-             (window-state-put (cdr state) (frame-root-window frame) 'safe)))
-         ;; delete any remaining frames
-         (mapc #'delete-frame frames))
-      (error
-       (message "Error loading window configuration from desktop file")))))
+             (window-state-put (cdr state) (frame-root-window frame) 'safe)
+             (unless selected (setq selected frame)))
+         (error
+          (message "Error restoring frame: %S" (error-message-string err)))))
+      ;; make sure the original selected frame is visible and selected
+      (unless (or (frame-parameter selected 'visibility) (daemonp))
+       (modify-frame-parameters selected '((visibility . t))))
+      (select-frame-set-input-focus selected)
+      ;; delete any remaining frames
+      (mapc #'delete-frame frames))))
 
 ;;;###autoload
 (defun desktop-read (&optional dirname)