[nongnu] elpa/meow cee4a34917: Fix a compilation warning in Emacs29

[ELPA Syncer]

branch: elpa/meow
commit cee4a34917c8aedd4925d73ecf60a2ef754694a9
Author: team-race <race.game.team@gmail.com>
Commit: team-race <race.game.team@gmail.com>

    Fix a compilation warning in Emacs29
---
 meow-util.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/meow-util.el b/meow-util.el
index 208801765d..d053771992 100644
--- a/meow-util.el
+++ b/meow-util.el
@@ -149,10 +149,16 @@ This uses the variable 
meow-update-cursor-functions-alist, finds the first
 item in which the car evaluates to true, and runs the cdr. The last item's car
 in the list will always evaluate to true."
   (with-current-buffer (window-buffer)
-    (thread-last meow-update-cursor-functions-alist
-      (cl-remove-if-not (lambda (el) (funcall (car el))))
-      (cdar)
-      (funcall))))
+    ;; Adapt Emacs29
+    ;; Using thread-last here causes following error:
+    ;; Warning: Optimization failure for cdar: Handler: 
internal--compiler-macro-cXXr (wrong-number-of-arguments (2 . 2) 1)
+    ;; Original code:
+    ;; (thread-last meow-update-cursor-functions-alist
+    ;;   (cl-remove-if-not (lambda (el) (funcall (car el))))
+    ;;   (cdar)
+    ;;   (funcall))
+    (funcall (cdar (cl-remove-if-not (lambda (el) (funcall (car el)))
+                                     meow-update-cursor-functions-alist)))))
 
 (defun meow--get-state-name (state)
   "Get the name of the current state.