master 1375cea157b 2/3: ; Remove unused Eshell target type

[Jim Porter]

branch: master
commit 1375cea157bd3f3d5eed93fa86dc591615774794
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>

    ; Remove unused Eshell target type
    
    Eshell creates all output targets in 'eshell-get-target', and that
    function never returns a cons cell.
    
    * lisp/eshell/esh-io.el (eshell-close-target)
    (eshell-output-object-to-target): Remove 'consp' condition.
---
 lisp/eshell/esh-io.el | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/lisp/eshell/esh-io.el b/lisp/eshell/esh-io.el
index cccdb49ce2a..1ec4f918282 100644
--- a/lisp/eshell/esh-io.el
+++ b/lisp/eshell/esh-io.el
@@ -466,13 +466,7 @@ STATUS should be non-nil on successful termination of the 
output."
    ;; A plain function redirection needs no additional arguments
    ;; passed.
    ((functionp target)
-    (funcall target status))
-
-   ;; But a more complicated function redirection (which can only
-   ;; happen with aliases at the moment) has arguments that need to be
-   ;; passed along with it.
-   ((consp target)
-    (apply (car target) status (cdr target)))))
+    (funcall target status))))
 
 (defun eshell-kill-append (string)
   "Call `kill-append' with STRING, if it is indeed a string."
@@ -642,10 +636,7 @@ Returns what was actually sent, or nil if nothing was 
sent."
        (if (memq (process-status target)
                 '(run stop open closed))
            (signal (car err) (cdr err))
-         (signal 'eshell-pipe-broken (list target))))))
-
-   ((consp target)
-    (apply (car target) object (cdr target))))
+         (signal 'eshell-pipe-broken (list target)))))))
   object)
 
 (defun eshell-output-object (object &optional handle-index handles)