summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMadhu <enometh@net.meer>2021-08-19 18:01:06 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2021-08-19 18:02:07 +0200
commitbfa3191c79df5a5e500a11ec8fab505c3b1cb2f3 (patch)
tree909fec73fb080e1b2ff32d8667922de9001ad915
parent489ddc56ab761f2c7308db42bea7fc74ae4bead0 (diff)
downloademacs-bfa3191c79df5a5e500a11ec8fab505c3b1cb2f3.tar.gz
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
-rw-r--r--lisp/shell.el4
1 files changed, 2 insertions, 2 deletions
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 ()