]> code.delx.au - gnu-emacs-elpa/commitdiff
Merge commit 'b114cf8a93224c85c51e95db52bf359131130476' from ace-window
authorOleh Krehel <ohwoeowho@gmail.com>
Sat, 9 May 2015 11:48:05 +0000 (13:48 +0200)
committerOleh Krehel <ohwoeowho@gmail.com>
Sat, 9 May 2015 11:48:05 +0000 (13:48 +0200)
1  2 
packages/ace-window/ace-window.el

index f34a77afcd15daa4e0414bf39d0f47959c9fc5a5,791b34d0d1625e5aab9f94079d952b2f98772e6b..791b34d0d1625e5aab9f94079d952b2f98772e6b
  Use M-0 `ace-window' to toggle this value."
    :type 'boolean)
  
+ (defcustom aw-ignore-current nil
+   "When t, `ace-window' will ignore `selected-window'."
+   :type 'boolean)
  (defcustom aw-background t
    "When t, `ace-window' will dim out all buffers temporarily when used.'."
    :type 'boolean)
  ;;* Implementation
  (defun aw-ignored-p (window)
    "Return t if WINDOW should be ignored."
-   (and aw-ignore-on
-        (member (buffer-name (window-buffer window))
-                aw-ignored-buffers)))
+   (or (and aw-ignore-on
+            (member (buffer-name (window-buffer window))
+                    aw-ignored-buffers))
+       (and aw-ignore-current
+            (equal window (selected-window)))))
  
  (defun aw-window-list ()
    "Return the list of interesting windows."