branch: externals/corfu-doc
commit 2a3f51502297723be1e299c240c94fb2187567b3
Author: Yuwei Tian <[email protected]>
Commit: Yuwei Tian <[email protected]>
Add corfu-doc--popup-scroll function
---
corfu-doc.el | 40 +++++++++++++++++++++-------------------
1 file changed, 21 insertions(+), 19 deletions(-)
diff --git a/corfu-doc.el b/corfu-doc.el
index b143dfbc7e..4b956875bd 100644
--- a/corfu-doc.el
+++ b/corfu-doc.el
@@ -401,25 +401,6 @@ FWIDTH and FHEIGHT."
(setq corfu-doc--window (selected-window)))
(corfu-doc--hide))))))
-(defun corfu-doc--funcall (function &rest args)
- (when-let ((cf-doc-buf (and (frame-live-p corfu-doc--frame)
- (frame-visible-p corfu-doc--frame)
- (get-buffer " *corfu-doc*"))))
- (when (functionp function)
- (with-selected-frame corfu-doc--frame
- (with-current-buffer cf-doc-buf
- (apply function args))))))
-
-;;;###autoload
-(defun corfu-doc-scroll-up (&optional arg)
- (interactive "^P")
- (corfu-doc--funcall #'scroll-up-command arg))
-
-;;;###autoload
-(defun corfu-doc-scroll-down (&optional arg)
- (interactive "^P")
- (corfu-doc--funcall #'scroll-down-command arg))
-
;;;###autoload
(define-minor-mode corfu-doc-mode
"Corfu doc minor mode."
@@ -465,6 +446,27 @@ FWIDTH and FHEIGHT."
(unless corfu-doc-mode
(advice-remove 'corfu--popup-show #'corfu-doc--auto-show))
(corfu-doc--hide))
+(defun corfu-doc--funcall (function &rest args)
+ (when-let ((cf-doc-buf (and (frame-live-p corfu-doc--frame)
+ (frame-visible-p corfu-doc--frame)
+ (get-buffer " *corfu-doc*"))))
+ (when (functionp function)
+ (with-selected-frame corfu-doc--frame
+ (with-current-buffer cf-doc-buf
+ (apply function args))))))
+
+(defun corfu-doc--popup-scroll (n)
+ (corfu-doc--funcall #'scroll-up n))
+
+;;;###autoload
+(defun corfu-doc-scroll-up (&optional n)
+ (interactive "p")
+ (corfu-doc--popup-scroll n))
+
+;;;###autoload
+(defun corfu-doc-scroll-down (&optional n)
+ (interactive "p")
+ (corfu-doc--popup-scroll (- (or n 1))))
;;;###autoload
(defun corfu-doc-toggle ()
