[elpa] externals/corfu 1ec081ef09 1/3: corfu-popupinfo-scroll-up: Redirect to scroll-other-window if popup is not visible

[ELPA Syncer]

branch: externals/corfu
commit 1ec081ef092292bed12eedfef4f271ec30aa6be4
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    corfu-popupinfo-scroll-up: Redirect to scroll-other-window if popup is not 
visible
---
 extensions/corfu-popupinfo.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index e5845b6608..ecb7843bd2 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -351,10 +351,11 @@ the candidate popup, its value is 'bottom, 'top, 'right 
or 'left."
 If ARG is omitted or nil, scroll upward by a near full screen.
 See `scroll-up' for details."
   (interactive "p")
-  (when (corfu-popupinfo--visible-p)
-    (with-selected-frame corfu-popupinfo--frame
-      (with-current-buffer " *corfu-popupinfo*"
-        (scroll-up n)))))
+  (if (corfu-popupinfo--visible-p)
+      (with-selected-frame corfu-popupinfo--frame
+        (with-current-buffer " *corfu-popupinfo*"
+          (scroll-up n)))
+    (scroll-other-window n)))
 
 (defun corfu-popupinfo-scroll-down (&optional n)
   "Scroll text of info popup window down N lines.