emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]