mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
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
This commit is contained in:
parent
489ddc56ab
commit
bfa3191c79
1 changed files with 2 additions and 2 deletions
|
|
@ -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 ()
|
||||
|
|
|
|||
Loading…
Reference in a new issue