[elpa] externals/ace-window 0d9a89edaf 2/2: ace-window-posframe.el (ace-window-posframe-disable): Fixup

[ELPA Syncer]

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

    ace-window-posframe.el (ace-window-posframe-disable): Fixup
---
 ace-window-posframe.el | 16 ++++++++++------
 ace-window.el          |  2 +-
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/ace-window-posframe.el b/ace-window-posframe.el
index b4fa4a3424..724ca6e7fa 100644
--- a/ace-window-posframe.el
+++ b/ace-window-posframe.el
@@ -1,3 +1,7 @@
+;;; ace-window-posframe.el --- posframe support for ace-window -*- 
lexical-binding: t -*-
+
+;; Copyright (C) 2015-2022  Free Software Foundation, Inc.
+
 (defvar aw--posframe-frames '())
 
 (defvar aw-posframe-position-handler #'posframe-poshandler-window-center)
@@ -24,16 +28,16 @@
 
 (defun aw--remove-leading-chars-posframe ()
   ;; Hide rather than delete. See aw--lead-overlay-posframe for why.
-  (cl-map nil #'posframe-hide aw--posframe-frames)
-  (setq aw--posframe-frames '()))
+  (mapc #'posframe-hide aw--posframe-frames)
+  (setq aw--posframe-frames nil))
 
 (defun ace-window-posframe-enable ()
-  (setq aw--lead-overlay-fn #'aw--lead-overlay-posframe
-        aw--remove-leading-chars-fn #'aw--remove-leading-chars-posframe))
+  (setq aw--lead-overlay-fn #'aw--lead-overlay-posframe)
+  (setq aw--remove-leading-chars-fn #'aw--remove-leading-chars-posframe))
 
 (defun ace-window-posframe-disable ()
-  (setq aw--lead-overlay-fn #'aw--lead-overlay
-        aw--remove-leading-chars-fn #'aw--remove-leading))
+  (setq aw--lead-overlay-fn #'aw--lead-overlay)
+  (setq aw--remove-leading-chars-fn #'aw--remove-leading-chars))
 
 ;;;###autoload
 (define-minor-mode ace-window-posframe-mode
diff --git a/ace-window.el b/ace-window.el
index 6657f3a5b4..ccb2783280 100644
--- a/ace-window.el
+++ b/ace-window.el
@@ -1,6 +1,6 @@
 ;;; ace-window.el --- Quickly switch windows. -*- lexical-binding: t -*-
 
-;; Copyright (C) 2015-2020  Free Software Foundation, Inc.
+;; Copyright (C) 2015-2022  Free Software Foundation, Inc.
 
 ;; Author: Oleh Krehel <ohwoeowho@gmail.com>
 ;; Maintainer: Oleh Krehel <ohwoeowho@gmail.com>