pdm/pip-frame
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Replace mapc with other constructs

Browse Source
This commit is contained in:
Milan Zamazal 2022-06-28 21:44:26 +02:00
parent 63c390d76b
commit aba0e70aec
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pip-frame.el
View File

@ -87,8 +87,8 @@ custom option but it can be overriden here."
(frame-inhibit-implied-resize t) (frame-inhibit-implied-resize t)
(face-height (round (/ (face-attribute 'default :height) pip-frame-font-scale)))) (face-height (round (/ (face-attribute 'default :height) pip-frame-font-scale))))
(set-face-attribute 'default frame :height face-height) (set-face-attribute 'default frame :height face-height)
(mapc (lambda (p) (set-face-attribute 'default frame (car p) (cdr p))) (dolist (p pip-frame-face-attributes)
pip-frame-face-attributes) (set-face-attribute 'default frame (car p) (cdr p)))
(set-window-buffer (car (window-list frame)) buffer) (set-window-buffer (car (window-list frame)) buffer)
frame)) frame))
@ -172,7 +172,7 @@ If the buffer is not present in the PIP frame, do nothing."
:test-not #'eq))) :test-not #'eq)))
(if (= (length windows-to-delete) (length windows)) (if (= (length windows-to-delete) (length windows))
(pip-frame-delete-frame) (pip-frame-delete-frame)
(mapc #'delete-window windows-to-delete)))) (seq-do #'delete-window windows-to-delete))))
(defun pip-frame--move (x y) (defun pip-frame--move (x y)
(let ((frame (pip-frame--get-frame))) (let ((frame (pip-frame--get-frame)))