lisp/frameset.el: Avoid computing frame-list unnecessarily.

(frameset-restore): When no frame is visible, do not generate
a list of frames, just make visible the selected one.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7bbc084319bf8066bf6bea83b6e906d2378a19e6..a0791284bcac99bb5b91fd04e090b84db6fc8e77 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-03-08  Juanma Barranquero  <lekktu@gmail.com>
+
+       * frameset.el (frameset-restore): When no frame is visible, do not
+       generate a list of frames, just make visible the selected one.
+
 2014-03-08  Dmitry Gutov  <dgutov@yandex.ru>
 
        * vc/vc-git.el (vc-git-command): Turn FILE-OR-LIST into nil when

diff --git a/lisp/frameset.el b/lisp/frameset.el
index 6fd23f739ae35c4d4105493e7d7280ce890f7138..d6742d8963237a557fcfe10074f585bccee49152 100644 (file)
--- a/lisp/frameset.el
+++ b/lisp/frameset.el
@@ -1204,7 +1204,7 @@ All keyword parameters default to nil."
 
     ;; Make sure there's at least one visible frame.
     (unless (or (daemonp) (visible-frame-list))
-      (make-frame-visible (car (frame-list))))))
+      (make-frame-visible (selected-frame)))))
 
 \f
 ;; Register support