[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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/meow d80c2ff2f9: Fix a compilation warning in Emacs29,
ELPA Syncer <=