From d79682da438b5e9f0ed49b32c8d741df5c269f98 Mon Sep 17 00:00:00 2001 From: Nicholas Hubbard Date: Mon, 4 Apr 2022 00:21:33 -0400 Subject: Wrap with-perspectives' BODY arg in a progn and return it. --- perspective.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/perspective.el b/perspective.el index 675cbf4..97fa85f 100644 --- a/perspective.el +++ b/perspective.el @@ -548,13 +548,15 @@ REQUIRE-MATCH can take the same values as in `completing-read'." (let ((old (cl-gensym))) `(progn (let ((,old (with-current-perspective (persp-current-name))) - (last-persp-cache (persp-last))) + (last-persp-cache (persp-last)) + (result)) (unwind-protect (progn (persp-switch ,name 'norecord) - ,@body) + (setq result (progn ,@body))) (when ,old (persp-switch ,old 'norecord))) - (set-frame-parameter nil 'persp--last last-persp-cache))))) + (set-frame-parameter nil 'persp--last last-persp-cache) + result)))) (defun persp-reset-windows () "Remove all windows, ensure the remaining one has no window parameters. -- cgit v1.0