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

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

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


From: ELPA Syncer
Subject: [nongnu] elpa/meow d80c2ff2f9: Fix a compilation warning in Emacs29
Date: Mon, 27 Mar 2023 02:01:36 -0400 (EDT)

branch: elpa/meow
commit d80c2ff2f94333492dd7714c4210440162985b20
Author: DogLooksGood <doglooksgood@hotmail.com>
Commit: DogLooksGood <doglooksgood@hotmail.com>

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

diff --git a/meow-util.el b/meow-util.el
index d053771992..c08ad63dfb 100644
--- a/meow-util.el
+++ b/meow-util.el
@@ -22,6 +22,7 @@
 
 ;;; Code:
 
+(require 'subr-x)
 (require 'cl-lib)
 (require 'seq)
 (require 'color)
@@ -149,16 +150,10 @@ 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)
-    ;; 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)))))
+    (thread-last meow-update-cursor-functions-alist
+      (cl-remove-if-not (lambda (el) (funcall (car el))))
+      (cdar)
+      (funcall))))
 
 (defun meow--get-state-name (state)
   "Get the name of the current state.



reply via email to

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