[Emacs-diffs] trunk r113556: lisp/desktop.el (desktop-restore-frames): Call `sit-for'.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113556
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2013-07-26 16:01:19 +0200
message:
  lisp/desktop.el (desktop-restore-frames): Call `sit-for'.
  We want to be sure that new frames are visible before deleting
  any remaining ones.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/desktop.el                desktop.el-20091113204419-o5vbwnq5f7feedwu-591

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-07-26 09:49:59 +0000
+++ b/lisp/ChangeLog    2013-07-26 14:01:19 +0000
@@ -1,3 +1,9 @@
+2013-07-26  Juanma Barranquero  <address@hidden>
+
+       * desktop.el (desktop-restore-frames): Call `sit-for' once all frames
+       are restored to be sure that they are visible before deleting any
+       remaining ones.
+
 2013-07-26  Matthias Meulien  <address@hidden>
 
        * vc/vc-dir.el (vc-dir-mode-map): Add binding for vc-print-root-log.

=== modified file 'lisp/desktop.el'
--- a/lisp/desktop.el   2013-07-25 09:24:26 +0000
+++ b/lisp/desktop.el   2013-07-26 14:01:19 +0000
@@ -1404,6 +1404,10 @@
          (error
           (delay-warning 'desktop (error-message-string err) :error))))
 
+      ;; In case we try to delete the initial frame, we want to make sure that
+      ;; other frames are already visible (discussed in thread for bug#14841).
+      (sit-for 0 t)
+
       ;; Delete remaining frames, but do not fail if some resist being deleted.
       (unless (eq desktop-restoring-reuses-frames 'keep)
        (dolist (frame desktop--reuse-list)