Undeprecate if-let and when-let

See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=+73853.
emacscollective · Nov 2, 2024 · d1bee48 · d1bee48
1 parent cd4bb2b
commit d1bee48
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/borg.mk b/borg.mk
@@ -37,6 +37,9 @@ EMACS_EXTRA ?=
 .FORCE:
 
 SILENCIO += --eval "(progn (require 'gv) (put 'buffer-substring 'byte-obsolete-generalized-variable nil))"
+SILENCIO += --eval "(progn \
+  (put 'if-let 'byte-obsolete-info nil) \
+  (put 'when-let 'byte-obsolete-info nil))"
 SILENCIO += --eval "(define-advice message (:around (fn format &rest args) silencio)\
   (unless (or (equal format \"Not registering prefix \\\"%s\\\" from %s.  Affects: %S\")\
               (ignore-errors (string-match-p \"Scraping files for\" (car args))))\

diff --git a/default.mk b/default.mk
@@ -17,7 +17,9 @@ VERSION ?= $(shell test -e $(TOP).git && git describe --tags --abbrev=0 | cut -c
 REVDESC := $(shell test -e $(TOP).git && git describe --tags)
 
 EMACS      ?= emacs
-EMACS_ARGS ?=
+EMACS_ARGS ?= --eval "(progn \
+  (put 'if-let 'byte-obsolete-info nil) \
+  (put 'when-let 'byte-obsolete-info nil))"
 
 LOAD_PATH  ?= $(addprefix -L ../,$(DEPS))
 LOAD_PATH  += -L .