branch: externals/consult
commit 406aee45006ee63eede7517bd77c8239f395028c
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Remove deprecated functions
Most packages have been updated to the Consult 2.0 async API.
---
consult.el | 33 +--------------------------------
1 file changed, 1 insertion(+), 32 deletions(-)
diff --git a/consult.el b/consult.el
index a912156384..d205676ca3 100644
--- a/consult.el
+++ b/consult.el
@@ -2031,35 +2031,6 @@ PLIST is the splitter configuration, including the
separator."
;;;; Asynchronous pipeline
-(defun consult--async-deprecation (&rest _)
- "Show API deprecation error."
- (message
- "%s"
- (string-fill
- (format "%s `%S' uses the old async API convention and must be updated.
-The `consult--async-*' API has been updated in a backward-incompatible
-way. For details, please see the Consult CHANGELOG, the relevant git
-commit message and the docstring of the `consult--async-pipeline' macro,
-which describes the updated API."
- (propertize "CONSULT ERROR:" 'face 'error)
- this-command)
- 70))
- (sit-for 30)
- (keyboard-quit))
-
-(define-obsolete-function-alias 'consult--async-split-initial
#'consult--async-deprecation
- "Not needed anymore, use INITIAL string directly.")
-(define-obsolete-function-alias 'consult--async-split-thingatpt
#'consult--async-deprecation
- "Not needed anymore, use `thing-at-point' instead.")
-(define-obsolete-function-alias 'consult--async-refresh-timer
#'consult--async-deprecation
- "Use `consult--async-refresh' instead.")
-(define-obsolete-function-alias 'consult--async-refresh-immediate
#'consult--async-deprecation
- "Use `consult--async-refresh' instead.")
-(define-obsolete-function-alias 'consult--dynamic-compute
#'consult--async-deprecation
- "Use `consult--async-dynamic' instead.")
-(define-obsolete-function-alias 'consult--async-command
#'consult--async-deprecation
- "Use `consult--process-collection' instead.")
-
(defun consult--async-pipeline (&rest async)
"Compose ASYNC pipeline.
@@ -2824,9 +2795,7 @@ PREVIEW-KEY are the preview keys."
preview-key sort lookup group
inherit-input-method async-wrap)
"See `consult--read' for the documentation of the arguments."
(when (and async-wrap (consult--async-p table))
- (condition-case nil
- (setq table (funcall (funcall async-wrap table) (consult--async-sink)))
- (error (consult--async-deprecation))))
+ (setq table (funcall (funcall async-wrap table) (consult--async-sink))))
(minibuffer-with-setup-hook
(:append (lambda ()
(add-hook 'after-change-functions
#'consult--tofu-hide-in-minibuffer nil 'local)
