Skip to content

Commit

Permalink
Update outlines
Browse files Browse the repository at this point in the history
  • Loading branch information
abo-abo committed Feb 25, 2015
1 parent 47bd115 commit 8b5f10a
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions ace-window.el
Original file line number Diff line number Diff line change
Expand Up @@ -62,7 +62,7 @@
;;; Code:
(require 'ace-jump-mode)

;; ——— Customization ———————————————————————————————————————————————————————————
;;* Customization
(defgroup ace-window nil
"Quickly switch current window."
:group 'convenience
Expand Down Expand Up @@ -94,6 +94,7 @@ Use M-0 `ace-window' to toggle this value."
'((t (:inherit ace-jump-face-foreground)))
"Face for each window's leading char.")

;;* Implementation
(defun aw-ignored-p (window)
"Return t if WINDOW should be ignored."
(and aw-ignore-on
Expand Down Expand Up @@ -243,7 +244,7 @@ Amend MODE-LINE to the mode line for the duration of the selection."
(prog1 (selected-window)
(select-window start-window))))

;; ——— Interactive —————————————————————————————————————————————————————————————
;;* Interactive
;;;###autoload
(defun ace-select-window ()
"Ace select window."
Expand Down Expand Up @@ -297,7 +298,7 @@ window."
(16 (ace-delete-window))
(t (ace-select-window))))

;; ——— Utility —————————————————————————————————————————————————————————————————
;;* Utility
(defun aw-visual-area< (va1 va2)
"Return true if visual area VA1 is less than VA2.
This is determined by their respective window coordinates.
Expand Down

0 comments on commit 8b5f10a

Please sign in to comment.