[nongnu] elpa/corfu-popup e5c7035190 06/26: Fix byte compilation error

[ELPA Syncer]

branch: elpa/corfu-popup
commit e5c70351905b23f4913e00b521e8d982d89d04c5
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Fix byte compilation error
---
 corfu-popup.el | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/corfu-popup.el b/corfu-popup.el
index c01c11f7e7..047c032913 100644
--- a/corfu-popup.el
+++ b/corfu-popup.el
@@ -140,27 +140,27 @@ Show a vertical scroll bar of size BAR + 1 from LOth 
line."
            popon-pos))
     nil))
 
-(defun corfu-popup--patch-out-display-graphic-p (fn name)
-  "Patch out `display-graphic-p' in FN and define NAME to that definition."
-  (let* ((vc-follow-symlinks t)
-         (definition (let ((position (find-function-noselect fn)))
-                       (with-current-buffer (car position)
-                         (save-excursion
-                           (goto-char (cdr position))
-                           (read (current-buffer)))))))
-    (setf (nth 1 definition) name)
-    (cl-labels ((patch-out
-                 (form)
-                 (cond
-                  ((equal form '(display-graphic-p))
-                   t)
-                  ((proper-list-p form)
-                   (mapcar #'patch-out form))
-                  (t
-                   form))))
-      (eval (patch-out definition)))))
-
 (eval-and-compile
+  (defun corfu-popup--patch-out-display-graphic-p (fn name)
+    "Patch out `display-graphic-p' in FN and define NAME to that \
+definition."
+    (let* ((vc-follow-symlinks t)
+           (definition (let ((position (find-function-noselect fn)))
+                         (with-current-buffer (car position)
+                           (save-excursion
+                             (goto-char (cdr position))
+                             (read (current-buffer)))))))
+      (setf (nth 1 definition) name)
+      (cl-labels ((patch-out
+                   (form)
+                   (cond
+                    ((equal form '(display-graphic-p))
+                     t)
+                    ((proper-list-p form)
+                     (mapcar #'patch-out form))
+                    (t
+                     form))))
+        (eval (patch-out definition)))))
   (corfu-popup--patch-out-display-graphic-p
    'corfu--auto-post-command 'corfu-popup--auto-post-command)
   (corfu-popup--patch-out-display-graphic-p