[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 36424bf524 2/3: Prefer helm-acase to cond in helm-dis
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm 36424bf524 2/3: Prefer helm-acase to cond in helm-display-buffer |
Date: |
Tue, 2 Jul 2024 07:00:53 -0400 (EDT) |
branch: elpa/helm
commit 36424bf5245d27892c1353a344a67569d52fa637
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Prefer helm-acase to cond in helm-display-buffer
---
helm-core.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/helm-core.el b/helm-core.el
index e4e952b39c..f8cd2217bf 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -3462,10 +3462,10 @@ The function used to display `helm-buffer' by calling
(helm-split-window-default-side
(if (and (not helm-full-frame)
helm-reuse-last-window-split-state)
- (cond ((eq helm-split-window-default-side 'same) 'same)
- ((eq helm-split-window-default-side 'other) 'other)
- (helm--window-side-state)
- (t helm-split-window-default-side))
+ (helm-acase helm-split-window-default-side
+ ((same other) it) ; take precedence on *-window-side-state.
+ ((guard helm--window-side-state) guard)
+ (t it))
helm-split-window-default-side))
(disp-fn (with-current-buffer buffer
(helm-resolve-display-function