From aba0e70aec9abe9f73f848c7812c71e9c7db6373 Mon Sep 17 00:00:00 2001 From: Milan Zamazal Date: Tue, 28 Jun 2022 21:44:26 +0200 Subject: [PATCH] Replace mapc with other constructs --- pip-frame.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pip-frame.el b/pip-frame.el index 6628274..b250206 100644 --- a/pip-frame.el +++ b/pip-frame.el @@ -87,8 +87,8 @@ custom option but it can be overriden here." (frame-inhibit-implied-resize t) (face-height (round (/ (face-attribute 'default :height) pip-frame-font-scale)))) (set-face-attribute 'default frame :height face-height) - (mapc (lambda (p) (set-face-attribute 'default frame (car p) (cdr p))) - pip-frame-face-attributes) + (dolist (p pip-frame-face-attributes) + (set-face-attribute 'default frame (car p) (cdr p))) (set-window-buffer (car (window-list frame)) buffer) frame)) @@ -172,7 +172,7 @@ If the buffer is not present in the PIP frame, do nothing." :test-not #'eq))) (if (= (length windows-to-delete) (length windows)) (pip-frame-delete-frame) - (mapc #'delete-window windows-to-delete)))) + (seq-do #'delete-window windows-to-delete)))) (defun pip-frame--move (x y) (let ((frame (pip-frame--get-frame)))