lisp/desktop.el (desktop-restoring-frames-p): Return a true boolean.

(desktop-restore-frames): Warn when deleting an existing frame failed.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a85c8c19546ba7ff4e1386c08b6a9d6c08705f2f..587c9b921c99f7e91bf3866f01214b9256406e07 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-24  Juanma Barranquero  <lekktu@gmail.com>
+
+       * desktop.el (desktop-restoring-frames-p): Return a true boolean.
+       (desktop-restore-frames): Warn when deleting an existing frame failed.
+
 2013-07-24  Glenn Morris  <rgm@gnu.org>
 
        * ffap.el (ffap-machine-p): Handle "not known" response.  (Bug#14929)

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 0cbe38c29e11e6e05d28e55c445291aa6aadb3f2..f4622ae49613344631a864f9a9fd2bfa200510eb 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1327,7 +1327,7 @@ its window state.  Internal use only."
 
 (defun desktop-restoring-frames-p ()
   "True if calling `desktop-restore-frames' will actually restore frames."
-  (and desktop-restore-frames desktop-saved-frame-states))
+  (and desktop-restore-frames desktop-saved-frame-states t))
 
 (defun desktop-restore-frames ()
   "Restore window/frame configuration.
@@ -1405,7 +1405,10 @@ being set (usually, by reading it from the desktop)."
       ;; Delete remaining frames, but do not fail if some resist being deleted.
       (unless (eq desktop-restoring-reuses-frames 'keep)
        (dolist (frame desktop--reuse-list)
-         (ignore-errors (delete-frame frame))))
+         (condition-case err
+             (delete-frame frame)
+           (error
+            (delay-warning 'desktop (error-message-string err))))))
       (setq desktop--reuse-list nil)
       ;; Make sure there's at least one visible frame, and select it.
       (unless (or (daemonp)