From: Juanma Barranquero <lekktu@gmail.com>
Date: Sat, 8 Mar 2014 22:26:20 +0000 (+0100)
Subject: lisp/frameset.el: Avoid computing frame-list unnecessarily.
X-Git-Tag: emacs-24.3.90~242
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7db54476d83d155fffb25fdec89f09224970a44;p=emacs.git

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 7bbc084319b..a0791284bca 100644
--- 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 6fd23f739ae..d6742d89632 100644
--- 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)))))
 
 
 ;; Register support