[elpa] externals/embark 3a9e5e1744 7/7: Remove some old obsolete definitions

[ELPA Syncer]

branch: externals/embark
commit 3a9e5e1744033511ca32beeea42f228c7948448e
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    Remove some old obsolete definitions
---
 embark.el | 54 ++++--------------------------------------------------
 1 file changed, 4 insertions(+), 50 deletions(-)

diff --git a/embark.el b/embark.el
index 5eef1be5fa..8cf2b605ee 100644
--- a/embark.el
+++ b/embark.el
@@ -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
@@ -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
@@ -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)
@@ -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)
@@ -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
@@ -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.
@@ -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
@@ -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.
@@ -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."
@@ -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: ")