From de61773fc378d40f478f8daf67543a51889ecded Mon Sep 17 00:00:00 2001
From: Jonas Bernoulli <jonas@bernoul.li>
Date: Tue, 17 Feb 2026 22:04:34 +0100
Subject: Begrudgingly stop using wrongly deprecated when-let

---
 Makefile | 4 +---
 llama.el | 7 ++++---
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/Makefile b/Makefile
index 67caa4b..a163ce1 100644
--- a/Makefile
+++ b/Makefile
@@ -16,9 +16,7 @@ LOAD_PATH ?= $(addprefix -L ../,$(DEPS))
 LOAD_PATH += -L .
 
 EMACS       ?= emacs
-EMACS_ARGS ?= --eval "(progn \
-  (put 'if-let 'byte-obsolete-info nil) \
-  (put 'when-let 'byte-obsolete-info nil))"
+EMACS_ARGS  ?=
 EMACS_Q_ARG ?= -Q
 EMACS_BATCH ?= $(EMACS) $(EMACS_Q_ARG) --batch $(EMACS_ARGS) $(LOAD_PATH)
 
diff --git a/llama.el b/llama.el
index 692df96..5a7797e 100644
--- a/llama.el
+++ b/llama.el
@@ -354,9 +354,10 @@ expansion, and the looks of this face should hint at that.")
            (prog1 t
              (save-excursion
                (goto-char (match-beginning 0))
-               (when-let ((_(save-match-data (not (nth 8 (syntax-ppss)))))
-                          (expr (ignore-errors
-                                  (read-positioning-symbols (current-buffer)))))
+               (when-let*
+                   ((_(save-match-data (not (nth 8 (syntax-ppss)))))
+                    (expr (ignore-errors
+                            (read-positioning-symbols (current-buffer)))))
                  (put-text-property (match-beginning 0) (point)
                                     'font-lock-multiline t)
                  (llama--fontify (cdr expr) nil nil t)))))
-- 
cgit v1.0