Skip to content

Commit

Permalink
Remove some old obsolete definitions
Browse files Browse the repository at this point in the history
  • Loading branch information
oantolin committed Mar 21, 2022
1 parent a7805f2 commit 3a9e5e1
Showing 1 changed file with 4 additions and 50 deletions.
54 changes: 4 additions & 50 deletions embark.el
Original file line number Diff line number Diff line change
Expand Up @@ -262,10 +262,6 @@ Used by `embark-completing-read-prompter' and `embark-keymap-help'.")
(defface embark-target '((t :inherit highlight))
"Face used to highlight the target at point during `embark-act'.")

(make-obsolete 'embark-indicator
"see the new `embark-indicators' variable."
"0.12")

(defcustom embark-indicators
'(embark-mixed-indicator
embark-highlight-indicator
Expand Down Expand Up @@ -385,26 +381,12 @@ configure that by adding an entry to this variable pairing `file'
with `find-file'."
:type '(alist :key-type symbol :value-type function))

(define-obsolete-variable-alias
'embark-allow-edit-commands
'embark-allow-edit-actions
"0.12")

(make-obsolete-variable
'embark-allow-edit-actions
"To allow editing for an action add `embark--allow-edit' to the
entry of `embark-target-injection-hooks' whose key is the action."
"0.14")

(defvar embark-skip-edit-commands nil)
(defvar embark-allow-edit-default t)
(dolist (var '(embark-skip-edit-commands embark-allow-edit-default))
(make-obsolete-variable
var
"The action editing configuration has been simplified and
replaced by the single `embark-allow-edit-actions' variable."
"0.12"))

(define-obsolete-variable-alias
'embark-setup-action-hooks
'embark-target-injection-hooks
Expand Down Expand Up @@ -443,12 +425,6 @@ the key :always are executed always."
(const :tag "Always" :always))
:value-type hook))

(dolist (obsolete
'(embark-setup-hook embark-setup-hooks embark-setup-overrides))
(make-obsolete obsolete
"see the new `embark-target-injection-hooks' variable."
"0.12"))

(defcustom embark-pre-action-hooks
'(;; commands that need to position point at the beginning or end
(eval-last-sexp embark--end-of-target)
Expand Down Expand Up @@ -515,10 +491,6 @@ arguments and more details."
(const :tag "Always" :always))
:value-type hook))

(make-obsolete 'embark-pre-action-hook
"see the new `embark-pre-action-hooks' variable."
"0.12")

(defcustom embark-post-action-hooks
'((bookmark-delete embark--restart)
(bookmark-rename embark--restart)
Expand All @@ -545,10 +517,6 @@ arguments and more details."
(const :tag "Always" :always))
:value-type hook))

(make-obsolete 'embark-post-action-hook
"see the new `embark-post-action-hooks' variable."
"0.12")

(defcustom embark-multitarget-actions nil
"Commands for which `embark-act-all' should pass a list of targets.
Normally `embark-act-all' runs the same action on each candiate
Expand Down Expand Up @@ -1386,10 +1354,6 @@ display actions and parameters are available."
(display-buffer-in-side-window (side . left)))
(sexp :tag "Other")))

(define-obsolete-variable-alias
'embark-verbose-indicator-excluded-commands
'embark-verbose-indicator-excluded-actions
"0.12")
(defcustom embark-verbose-indicator-excluded-actions nil
"Commands not displayed by `embark-verbose-indicator'.
This variable should be set to a list of symbols and regexps.
Expand Down Expand Up @@ -2276,11 +2240,6 @@ See `embark-act' for the meaning of the prefix ARG."
(embark--quit-p action arg)))
(user-error "No target found")))

(define-obsolete-function-alias
'embark-default-action
'embark-dwim
"0.11")

(defun embark--become-keymap ()
"Return keymap of commands to become for current command."
(let ((map (make-composed-keymap
Expand Down Expand Up @@ -3145,7 +3104,7 @@ Return the category metadatum as the type of the target."
(unless selectrum--previous-input-string
(selectrum-exhibit))
(cons (selectrum--get-meta 'category)
(selectrum-get-current-candidate))))
(selectrum-get-current-candidate))))

(defun embark--selectrum-candidates ()
"Collect the current Selectrum candidates.
Expand All @@ -3155,9 +3114,9 @@ Return the category metadatum as the type of the candidates."
(unless selectrum--previous-input-string
(selectrum-exhibit))
(cons (selectrum--get-meta 'category)
(selectrum-get-current-candidates
;; Pass relative file names for dired.
minibuffer-completing-file-name))))
(selectrum-get-current-candidates
;; Pass relative file names for dired.
minibuffer-completing-file-name))))

(defun embark--selectrum-indicator ()
"Embark indicator highlighting the current Selectrum candidate."
Expand Down Expand Up @@ -3256,11 +3215,6 @@ STRING contains no newlines."
(ins-string))
(ins-string))))

(define-obsolete-function-alias
'embark-save
'kill-new
"0.11")

(defun embark-eshell (file)
"Run eshell in directory of FILE."
(interactive "GDirectory: ")
Expand Down

0 comments on commit 3a9e5e1

Please sign in to comment.