Merge 059af61 into dc4f8a0

bmag · Apr 21, 2021 · fad167f · fad167f
2 parents dc4f8a0 + 059af61
commit fad167f
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/window-purpose-fixes.el b/window-purpose-fixes.el
@@ -113,10 +113,12 @@ duration of the function."
 
       (let* ((compilation-window (get-buffer-window (marker-buffer (point-marker))))
              (old-window-dedicated-p (window-dedicated-p compilation-window)))
-        (set-window-dedicated-p compilation-window t)
-        (unwind-protect
+        (if (not compilation-window)
             (apply oldfun args)
-          (set-window-dedicated-p compilation-window old-window-dedicated-p))))
+          (set-window-dedicated-p compilation-window t)
+          (unwind-protect
+              (apply oldfun args)
+            (set-window-dedicated-p compilation-window old-window-dedicated-p)))))
 
     (purpose-fix-install-advice-toggler
      #'compilation-next-error-function