[elpa] externals/ace-window 21fb8ab 58/92: ace-window.el (aw--after-make-frame): Extract, add make-frame-visible

[Stefan Monnier]

branch: externals/ace-window
commit 21fb8abb3b25be32e6584c1644730ab34c2826b3
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    ace-window.el (aw--after-make-frame): Extract, add make-frame-visible
    
    Fixes #153
---
 ace-window.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ace-window.el b/ace-window.el
index e382b3c..7c30659 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -779,6 +779,10 @@ The point is writable, i.e. it's not part of space after 
newline."
           (forward-line))
         (+ (point) h)))))
 
+(defun aw--after-make-frame (f)
+  (aw-update)
+  (make-frame-visible f))
+
 ;;* Mode line
 ;;;###autoload
 (define-minor-mode ace-window-display-mode
@@ -797,14 +801,14 @@ The point is writable, i.e. it's not part of space after 
newline."
         (force-mode-line-update t)
         (add-hook 'window-configuration-change-hook 'aw-update)
         ;; Add at the end so does not precede select-frame call.
-        (add-hook 'after-make-frame-functions (lambda (_) (aw-update)) t))
+        (add-hook 'after-make-frame-functions #'aw--after-make-frame t))
     (set-default
      'mode-line-format
      (assq-delete-all
       'ace-window-display-mode
       (default-value 'mode-line-format)))
     (remove-hook 'window-configuration-change-hook 'aw-update)
-    (remove-hook 'after-make-frame-functions 'aw-update)))
+    (remove-hook 'after-make-frame-functions 'aw--after-make-frame)))
 
 (defun aw-update ()
   "Update ace-window-path window parameter for all windows.