From 8b5f10a4714c6aabe38d220afd1b8a8606cfa8d6 Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Wed, 25 Feb 2015 20:45:10 +0100 Subject: [PATCH] Update outlines --- ace-window.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/ace-window.el b/ace-window.el index 7185af7..a648cdd 100644 --- a/ace-window.el +++ b/ace-window.el @@ -62,7 +62,7 @@ ;;; Code: (require 'ace-jump-mode) -;; ——— Customization ——————————————————————————————————————————————————————————— +;;* Customization (defgroup ace-window nil "Quickly switch current window." :group 'convenience @@ -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 @@ -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." @@ -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.