[elpa] externals/embark 4380fa2aef 3/5: Simplify, use static-if

[ELPA Syncer]

branch: externals/embark
commit 4380fa2aefdee96058bac9e7f8e5bc3400a02596
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Simplify, use static-if
---
 embark.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/embark.el b/embark.el
index 09c4791a30..2661799960 100644
--- a/embark.el
+++ b/embark.el
@@ -500,7 +500,7 @@ used for other types of action hooks, for more details see
                         (const :tag "Always" :always))
                 :value-type hook))
 
-(when (version-list-< (version-to-list emacs-version) '(29 1))
+(static-if (< emacs-major-version 29)
   ;; narrow to target for duration of action
   (setf (alist-get 'repunctuate-sentences embark-around-action-hooks)
         '(embark--narrow-to-target)))
@@ -3942,7 +3942,7 @@ argument), no quoting is used for strings."
                (eval (read (buffer-substring beg end)) lexical-binding)))
       (delete-region beg end))))
 
-(when (< emacs-major-version 29)
+(static-if (< emacs-major-version 29)
   (defun embark-elp-restore-package (prefix)
     "Remove instrumentation from functions with names starting with PREFIX."
     (interactive "SPrefix: ")
@@ -4001,7 +4001,7 @@ ALGORITHM is the hash algorithm symbol understood by 
`secure-hash'."
     (access-file dir "Download failed")
     (url-retrieve
      url #'eww-download-callback
-     (if (>= emacs-major-version 28) (list url dir) (list url)))))
+     (static-if (>= emacs-major-version 28) (list url dir) (list url)))))
 
 ;;; Setup and pre-action hooks