Wrap with-perspectives' BODY arg in a progn and return it.

1 files 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.