diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2022-11-19 15:23:44 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2022-11-19 15:23:44 +0100 |
| commit | 1ec081ef092292bed12eedfef4f271ec30aa6be4 (patch) | |
| tree | 6bd8d8fe412f842f48d027500d30594b66b0b133 | |
| parent | 536b68b733ce1912c5ed97c9054fb42ef7957b39 (diff) | |
corfu-popupinfo-scroll-up: Redirect to scroll-other-window if popup is not visible
| -rw-r--r-- | extensions/corfu-popupinfo.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el index e5845b6..ecb7843 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. |