[elpa] externals/corfu f7285a9e53 3/4: Simplify corfu-docframe

[ELPA Syncer]

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

    Simplify corfu-docframe
---
 extensions/corfu-docframe.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/extensions/corfu-docframe.el b/extensions/corfu-docframe.el
index d649d93fdf..b6500ab38f 100644
--- a/extensions/corfu-docframe.el
+++ b/extensions/corfu-docframe.el
@@ -378,10 +378,9 @@ the corfu 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-let ((cf-doc-buf (and (corfu-docframe--visible-p)
-                              (get-buffer " *corfu-docframe*"))))
+  (when (corfu-docframe--visible-p)
     (with-selected-frame corfu-docframe--frame
-      (with-current-buffer cf-doc-buf
+      (with-current-buffer (get-buffer " *corfu-docframe*")
         (scroll-up n)))))
 
 (defun corfu-docframe-scroll-down (&optional n)