emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/corfu eb66eb4410 3/3: Use static-if


From: ELPA Syncer
Subject: [elpa] externals/corfu eb66eb4410 3/3: Use static-if
Date: Mon, 8 Jul 2024 18:57:59 -0400 (EDT)

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

    Use static-if
---
 corfu.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/corfu.el b/corfu.el
index 6763bece39..1a9f2cb529 100644
--- a/corfu.el
+++ b/corfu.el
@@ -529,7 +529,7 @@ FRAME is the existing frame."
 (defun corfu--filter-completions (&rest args)
   "Compute all completions for ARGS with lazy highlighting."
   (dlet ((completion-lazy-hilit t) (completion-lazy-hilit-fn nil))
-    (if (eval-when-compile (>= emacs-major-version 30))
+    (static-if (>= emacs-major-version 30)
         (cons (apply #'completion-all-completions args) 
completion-lazy-hilit-fn)
       (cl-letf* ((orig-pcm (symbol-function 
#'completion-pcm--hilit-commonality))
                  (orig-flex (symbol-function 
#'completion-flex-all-completions))
@@ -605,7 +605,7 @@ FRAME is the existing frame."
               ;; bug#6581: `equal-including-properties' uses `eq' to compare
               ;; properties until 29.1.  Approximate by comparing
               ;; `text-properties-at' position 0.
-              (if (if (eval-when-compile (< emacs-major-version 29))
+              (if (static-if (< emacs-major-version 29)
                       (equal (text-properties-at 0 (car beg))
                              (text-properties-at 0 (cadr dup)))
                     (equal-including-properties (car beg) (cadr dup)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]