branch: externals/consult
commit 17de436c58df1f0e2036b7cc590b74dcbdefd393
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Drop obsolete commands in preparation of 1.0 release
---
CHANGELOG.org | 8 ++++++++
consult.el | 58 ----------------------------------------------------------
2 files changed, 8 insertions(+), 58 deletions(-)
diff --git a/CHANGELOG.org b/CHANGELOG.org
index 8df2bdcfcb..42128befb1 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,14 @@
#+author: Daniel Mendler
#+language: en
+* Development
+
+- Drop obsolete =consult-apropos=. Alternative: =describe-symbol= in
combination
+ with =embark-export=.
+- Drop obsolete =consult-multi-occur=. Alternative: Built-in =multi-occur=,
+ =multi-occur-in-matching-buffers= or =consult-line-multi=.
+- Drop obsolete =consult-file-externally=. Alternative:
=embark-open-externally=.
+
* Version 0.31 (2023-01-06)
- Version bump to update the Compat package dependency (29.1.0.1)
diff --git a/consult.el b/consult.el
index cd8d6975ef..0b2c6145d7 100644
--- a/consult.el
+++ b/consult.el
@@ -4858,64 +4858,6 @@ the asynchronous search."
:add-history (consult--async-split-thingatpt 'symbol)
:history '(:input consult--man-history))))
-;;;; Obsolete commands
-
-;;;###autoload
-(defun consult-apropos ()
- "Select pattern and call `apropos'.
-
-The default value of the completion is the symbol at point. As a better
-alternative, you can run `embark-export' from commands like `M-x' and
-`describe-symbol'."
- (interactive)
- (let ((pattern
- (consult--read
- obarray
- :prompt "consult-apropos (obsolete): "
- :predicate (lambda (x) (or (fboundp x) (boundp x) (facep x)
(symbol-plist x)))
- :category 'symbol
- :default (thing-at-point 'symbol))))
- (when (string= pattern "")
- (user-error "No pattern given"))
- (apropos pattern)))
-
-(make-obsolete
- 'consult-apropos
- "consult-apropos has been deprecated in favor of Embark actions:
-M-x describe-symbol <regexp> M-x embark-export
-M-x describe-symbol <regexp> M-x embark-act a"
- "0.20")
-
-;;;###autoload
-(defun consult-file-externally (file)
- "Open FILE externally using the default application of the system."
- (interactive "fOpen externally: ")
- (if (and (eq system-type 'windows-nt)
- (fboundp 'w32-shell-execute))
- (w32-shell-execute "open" file)
- (call-process (pcase system-type
- ('darwin "open")
- ('cygwin "cygstart")
- (_ "xdg-open"))
- nil 0 nil
- (expand-file-name file))))
-
-(make-obsolete 'consult-file-externally 'embark-open-externally "0.29")
-
-;;;###autoload
-(defun consult-multi-occur (bufs regexp &optional nlines)
- "Improved version of `multi-occur' based on `completing-read-multiple'.
-
-See `multi-occur' for the meaning of the arguments BUFS, REGEXP and NLINES."
- (interactive (cons
- (mapcar #'get-buffer
- (completing-read-multiple "Buffer: "
- #'internal-complete-buffer))
- (occur-read-primary-args)))
- (occur-1 regexp nlines bufs))
-
-(make-obsolete 'consult-multi-occur 'consult-line-multi "0.29")
-
;;;; Preview at point in completions buffers
(define-minor-mode consult-preview-at-point-mode
