emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/consult 5d5c00d 2/2: Remove deprecations


From: ELPA Syncer
Subject: [elpa] externals/consult 5d5c00d 2/2: Remove deprecations
Date: Sat, 2 Oct 2021 14:57:10 -0400 (EDT)

branch: externals/consult
commit 5d5c00d99b56722ae34d362534d83c97523504f9
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Remove deprecations
---
 consult-imenu.el |  5 -----
 consult.el       | 24 ------------------------
 2 files changed, 29 deletions(-)

diff --git a/consult-imenu.el b/consult-imenu.el
index 4a0f70c..2ce2413 100644
--- a/consult-imenu.el
+++ b/consult-imenu.el
@@ -228,10 +228,5 @@ QUERY can be set to a plist according to 
`consult--buffer-query'."
     (consult-imenu--select (car buffers)
                            (consult-imenu--multi-items (cdr buffers)))))
 
-(define-obsolete-function-alias
-  'consult-project-imenu
-  'consult-imenu-multi
-  "0.9")
-
 (provide 'consult-imenu)
 ;;; consult-imenu.el ends here
diff --git a/consult.el b/consult.el
index b2a66b1..6672276 100644
--- a/consult.el
+++ b/consult.el
@@ -221,22 +221,6 @@ See `consult--multi' for a description of the source 
values."
   "\\`\\(?:\\./\\)?\\([^\n\0]+\\)\0\\([0-9]+\\)[:\0]"
   "Regexp used to match file and line of grep output.")
 
-;; TODO remove deprecation
-(defmacro consult--obsolete-command-variable (&rest vars)
-  "Create obsolete command configuration VARS."
-  (macroexp-progn
-   (mapcan
-    (lambda (var)
-      (let ((sym (intern (format "consult-%s-command" var)))
-            (msg (format "This variable has been deprecated in favor of 
`consult-%s-args'.
-The command configuration format has been updated.
-See `consult-grep-args' or the CHANGELOG for more information.
-Please adjust your configuration." var)))
-        `((defvar ,sym ,msg)
-          (make-obsolete-variable ',sym ,msg "0.9"))))
-    vars)))
-(consult--obsolete-command-variable grep ripgrep git-grep find locate man)
-
 (defcustom consult-grep-args
   "grep --null --line-buffered --color=never --ignore-case\
    --exclude-dir=.git --line-number -I -r ."
@@ -1506,11 +1490,6 @@ string   Update with the current user input string. 
Return nil."
 (defun consult--async-split-style ()
   "Return the async splitting style function and initial string."
   (or (alist-get consult-async-split-style consult-async-split-styles-alist)
-      ;; TODO Remove the special warning about the obsoletion
-      (when (eq consult-async-split-style 'space)
-        (user-error "The splitting style `space' has been obsoleted.
-`%s' automatically splits the input into separate regexps.
-The splitting styles `nil', `perl' or `semicolon' are recommended instead" 
this-command))
       (user-error "Splitting style `%s' not found" consult-async-split-style)))
 
 (defun consult--async-split-initial (initial)
@@ -1757,9 +1736,6 @@ The refresh happens after a DELAY, defaulting to 
`consult-async-refresh-delay'."
 (defun consult--command-builder (builder)
   "Return command line builder given CMD.
 BUILDER is the command line builder function."
-  ;; TODO remove deprecation
-  (unless (functionp builder)
-    (error "`%s' passed a string to `consult--async-command', which is 
deprecated" this-command))
   (lambda (input)
     (setq input (funcall builder input))
     (if (stringp (car input))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]