From 63c390d76bab1978a288cd89b96182259c420452 Mon Sep 17 00:00:00 2001 From: Milan Zamazal Date: Tue, 28 Jun 2022 21:41:32 +0200 Subject: [PATCH] =?UTF-8?q?Don=E2=80=99t=20prefix=20lambdas=20with=20#'?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- pip-frame.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/pip-frame.el b/pip-frame.el index b68263b..6628274 100644 --- a/pip-frame.el +++ b/pip-frame.el @@ -73,7 +73,7 @@ custom option but it can be overriden here." (defun pip-frame--get-frame (&optional no-error) (let ((frame (cl-find pip-frame--name (frame-list) - :key #'(lambda (f) (frame-parameter f 'name))))) + :key (lambda (f) (frame-parameter f 'name))))) (or frame (unless no-error (error "No PIP frame"))))) @@ -87,7 +87,7 @@ 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))) + (mapc (lambda (p) (set-face-attribute 'default frame (car p) (cdr p))) pip-frame-face-attributes) (set-window-buffer (car (window-list frame)) buffer) frame)) @@ -104,11 +104,11 @@ custom option but it can be overriden here." (let ((windows (window-list (pip-frame--get-frame)))) (unless (and temporary (cl-find buffer windows :key #'window-buffer :test #'eq)) - (let* ((sizes (mapcar #'(lambda (w) - (let ((width (window-body-width w t)) - (height (window-body-height w t))) - (cons (+ (* width width) (* height height)) - w))) + (let* ((sizes (mapcar (lambda (w) + (let ((width (window-body-width w t)) + (height (window-body-height w t))) + (cons (+ (* width width) (* height height)) + w))) windows)) (largest (cdr (cl-first (cl-sort sizes #'> :key #'car)))) (side (if (> (window-body-width largest t)