[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master c351368 23/68: ace-window.el (aw-visual-area<): improve.

From: Oleh Krehel
Subject: [elpa] master c351368 23/68: ace-window.el (aw-visual-area<): improve.
Date: Sat, 21 Mar 2015 19:06:54 +0000

branch: master
commit c351368cc8beded154c578a36986e9286d9eceb2
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    ace-window.el (aw-visual-area<): improve.
    Now the frame to which window belongs is the first key by which the
    sorting is done. This means that the windows that belong to the same
    frame will be numbered sequentially.
 ace-window.el |   13 ++++++++-----
 1 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/ace-window.el b/ace-window.el
index 9d040cd..80ece68 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -4,7 +4,7 @@
 ;; Author: Oleh Krehel <address@hidden>
 ;; URL: https://github.com/abo-abo/ace-window
-;; Version: 0.3.0
+;; Version: 0.4.0
 ;; Package-Requires: ((ace-jump-mode "2.0"))
 ;; Keywords: cursor, window, location
@@ -210,8 +210,6 @@ HANDLER is a function that takes a window argument."
     (aw-generic " Ace - Swap Window" aw-swap-window)
   "Ace swap window.")
 (defun ace-window (arg)
   "Select a window with `ace-jump-mode'and perform an action based on prefix 
@@ -237,9 +235,14 @@ Prefixed with two \\[universal-argument]'s, deletes the 
   "Return true if visual area VA1 is less than VA2.
 This is determined by their respective window coordinates.
 Windows are numbered top down, left to right."
-  (let ((e1 (window-edges (aj-visual-area-window va1)))
+  (let ((f1 (aj-visual-area-frame va1))
+        (f2 (aj-visual-area-frame va2))
+        (e1 (window-edges (aj-visual-area-window va1)))
         (e2 (window-edges (aj-visual-area-window va2))))
-    (cond ((< (car e1) (car e2))
+    (cond ((string< (frame-parameter f1 'window-id)
+                    (frame-parameter f2 'window-id))
+           t)
+          ((< (car e1) (car e2))
           ((> (car e1) (car e2))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]