x-magit: don't override backup variable on double activation

bmag · Mar 4, 2021 · aee1199 · aee1199
1 parent c85dd3c
commit aee1199
Showing 1 changed file with 14 additions and 4 deletions.
diff --git a/window-purpose-x.el b/window-purpose-x.el
@@ -232,17 +232,27 @@ invoked.")
   "Turn on magit-single purpose configuration."
   (interactive)
   (with-eval-after-load 'magit
-    (setq purpose-x-old-magit-display-buffer-function magit-display-buffer-function
-          magit-display-buffer-function 'purpose-x-magit-display-buffer-function))
+    ;; if `purpose-x-old-magit-display-buffer-function' is non-nil, then it
+    ;; means magit-single-on was activated while magit-single-on or
+    ;; magit-multi-on is already active. Magit's variable is already backed up,
+    ;; so "backing it up" again will actually override it with a wrong value.
+    (unless purpose-x-old-magit-display-buffer-function
+      (setq purpose-x-old-magit-display-buffer-function magit-display-buffer-function))
+    (setq magit-display-buffer-function 'purpose-x-magit-display-buffer-function))
   (purpose-set-extension-configuration :magit purpose-x-magit-single-conf))
 
 ;;;###autoload
 (defun purpose-x-magit-multi-on ()
   "Turn on magit-multi purpose configuration."
   (interactive)
   (with-eval-after-load 'magit
-    (setq purpose-x-old-magit-display-buffer-function magit-display-buffer-function
-          magit-display-buffer-function 'purpose-x-magit-display-buffer-function))
+    ;; if `purpose-x-old-magit-display-buffer-function' is non-nil, then it
+    ;; means magit-multi-on was activated while magit-single-on or
+    ;; magit-multi-on is already active. Magit's variable is already backed up,
+    ;; so "backing it up" again will actually override it with a wrong value.
+    (unless purpose-x-old-magit-display-buffer-function
+      (setq purpose-x-old-magit-display-buffer-function magit-display-buffer-function))
+    (setq magit-display-buffer-function 'purpose-x-magit-display-buffer-function))
   (purpose-set-extension-configuration :magit purpose-x-magit-multi-conf))
 
 (defun purpose-x-magit-off ()