diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-07-08 23:56:22 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-07-08 23:56:22 +0200 |
| commit | eb66eb441006adf6853a67e0954e5df70f3efb63 (patch) | |
| tree | ea033541b58e6557c0be94fc7ac1aa754c8334af | |
| parent | daab849b05ace651df195617303e152f928980f7 (diff) | |
Use static-if
| -rw-r--r-- | corfu.el | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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))) |
