[nongnu] elpa/bash-completion 802eb4e5a8 194/313: Set EMACS_BASH_COMPLETE even on remote (tramp) completion.

[ELPA Syncer]

branch: elpa/bash-completion
commit 802eb4e5a8244a4c5cffe50c2cffb6856dec1f0a
Author: Stephane Zermatten <szermatt@gmx.net>
Commit: Stephane Zermatten <szermatt@gmx.net>

    Set EMACS_BASH_COMPLETE even on remote (tramp) completion.
---
 bash-completion.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/bash-completion.el b/bash-completion.el
index 6793466a86..f80b1c94bf 100644
--- a/bash-completion.el
+++ b/bash-completion.el
@@ -927,7 +927,6 @@ is set to t."
       (let ((process) (oldterm (getenv "TERM")) (cleanup t) 
(bash-major-version))
         (unwind-protect
             (progn
-              (setenv "EMACS_BASH_COMPLETE" "t")
               (setenv "TERM" "dumb")
               (let* ((start-proc-fun (if remote #'start-file-process 
#'start-process))
                      (buffer-name (generate-new-buffer-name " 
bash-completion"))
@@ -949,6 +948,7 @@ is set to t."
                   ;; user
                   (setq process (apply start-proc-fun args))))
               (set-process-query-on-exit-flag process nil)
+              (process-send-string process "EMACS_BASH_COMPLETE=t\n")
               (dolist (start-file bash-completion-start-files)
                 (when (file-exists-p (bash-completion--expand-file-name 
start-file))
                   (process-send-string process (concat ". " start-file "\n"))))
@@ -1001,7 +1001,6 @@ is set to t."
               process)
           ;; finally
           (progn
-            (setenv "EMACS_BASH_COMPLETE" nil)
             (setenv "TERM" oldterm)
             (when cleanup
               (condition-case nil