From: Madhu <enometh@net.meer>
Date: Thu, 19 Aug 2021 16:01:06 +0000 (+0200)
Subject: Correctly call completion-in-region in shell.el
X-Git-Tag: emacs-28.0.90~1427
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfa3191c79df5a5e500a11ec8fab505c3b1cb2f3;p=emacs.git

Correctly call completion-in-region in shell.el

* lisp/shell.el (shell-dynamic-complete-command)
(shell-dynamic-complete-environment-variable): Correctly call
completion-in-region (bug#50125).

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/shell.el b/lisp/shell.el
index 292f267d2e1..5cdc0385a6f 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -1199,7 +1199,7 @@ Returns t if successful."
     (if data
 	(prog2 (unless (window-minibuffer-p)
 		 (message "Completing command name..."))
-	    (apply #'completion-in-region data)))))
+            (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data))))))
 
 (defun shell-command-completion ()
   "Return the completion data for the command at point, if any."
@@ -1314,7 +1314,7 @@ Returns non-nil if successful."
     (if data
 	(prog2 (unless (window-minibuffer-p)
 		 (message "Completing variable name..."))
-	    (apply #'completion-in-region data)))))
+	    (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data))))))
 
 
 (defun shell-environment-variable-completion ()