[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/corfu 1ec081ef09 1/3: corfu-popupinfo-scroll-up: Redire
From: |
ELPA Syncer |
Subject: |
[elpa] externals/corfu 1ec081ef09 1/3: corfu-popupinfo-scroll-up: Redirect to scroll-other-window if popup is not visible |
Date: |
Sat, 19 Nov 2022 09:57:26 -0500 (EST) |
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.