[elpa] externals/corfu-doc 2a3f515022 63/95: Add corfu-doc--popup-scroll function

[ELPA Syncer]

branch: externals/corfu-doc
commit 2a3f51502297723be1e299c240c94fb2187567b3
Author: Yuwei Tian <ibluefocus@outlook.com>
Commit: Yuwei Tian <ibluefocus@outlook.com>

    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 ()