[Emacs-diffs] trunk r116744: lisp/frameset.el: Optimize check for visible frame.

[Juanma Barranquero]

------------------------------------------------------------
revno: 116744
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Wed 2014-03-12 19:36:26 +0100
message:
  lisp/frameset.el: Optimize check for visible frame.
  
  (frameset-restore): When checking for a visible frame,
  use the action map instead of calling visible-frame-list.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/frameset.el               frameset.el-20130802043218-tfwraxv1c2zlibpw-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-12 15:02:45 +0000
+++ b/lisp/ChangeLog    2014-03-12 18:36:26 +0000
@@ -1,3 +1,8 @@
+2014-03-12  Juanma Barranquero  <address@hidden>
+
+       * frameset.el (frameset-restore): When checking for a visible frame,
+       use the action map instead of calling visible-frame-list.
+
 2014-03-12  Jonas Bernoulli  <address@hidden>
 
        * emacs-lisp/eieio.el (with-slots): Use cl-symbol-macrolet (bug#16998).

=== modified file 'lisp/frameset.el'
--- a/lisp/frameset.el  2014-03-12 02:21:09 +0000
+++ b/lisp/frameset.el  2014-03-12 18:36:26 +0000
@@ -1230,7 +1230,12 @@
             (delay-warning 'frameset (error-message-string err) :warning))))))
 
     ;; Make sure there's at least one visible frame.
-    (unless (or (daemonp) (visible-frame-list))
+    (unless (or (daemonp)
+               (catch 'visible
+                 (maphash (lambda (frame _)
+                            (and (frame-live-p frame) (frame-visible-p frame)
+                                 (throw 'visible t)))
+                          frameset--action-map)))
       (make-frame-visible (selected-frame)))))