From 1f2f8808adef3d7edb09f2c2fda6cae51436adfe Mon Sep 17 00:00:00 2001 From: "guobao.jiang" Date: Thu, 22 Sep 2016 12:47:06 +0800 Subject: [PATCH] add ace-window-hook --- ace-window.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/ace-window.el b/ace-window.el index e5bbd33..63b473a 100644 --- a/ace-window.el +++ b/ace-window.el @@ -108,6 +108,11 @@ This will make `ace-window' act different from `other-window' for one or two windows." :type 'boolean) +(defcustom ace-window-hook '() + "Called upon entry into ace-window mode." + :type 'hook + :group 'ace-window) + (defface aw-leading-char-face '((((class color)) (:foreground "red")) (((background dark)) (:foreground "gray100")) @@ -381,7 +386,8 @@ window." (ace-select-window)) (4 (ace-swap-window)) (16 (ace-delete-window)) - (t (ace-select-window)))) + (t (ace-select-window))) + (run-hooks 'ace-window-hook)) ;;* Utility (defun aw-window< (wnd1 wnd2)