From 0d9a89edafca53a09946e3a59ed64a0b975a0b8a Mon Sep 17 00:00:00 2001 From: Oleh Krehel Date: Wed, 7 Sep 2022 09:09:41 +0200 Subject: [PATCH] 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 b4fa4a3..724ca6e 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 6657f3a..ccb2783 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 ;; Maintainer: Oleh Krehel