[elpa] externals/consult 406aee4500 2/2: Remove deprecated functions

[ELPA Syncer]

branch: externals/consult
commit 406aee45006ee63eede7517bd77c8239f395028c
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)