branch: elpa/llama
commit de61773fc378d40f478f8daf67543a51889ecded
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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 67caa4bc4a..a163ce118c 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 692df96885..5a7797ed73 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)))))
