diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2011-06-06 01:20:16 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2011-06-06 01:20:16 +0200 |
| commit | 574894a1d0427df18ea0676b4278b354770487a5 (patch) | |
| tree | 875317901c0d575144b6bcb21c7c533975ec5ed5 /lisp/comint.el | |
| parent | 834c05e6cbf393850426ed67ec6e1e4d2a23b68b (diff) | |
| download | emacs-574894a1d0427df18ea0676b4278b354770487a5.tar.gz | |
* lisp/comint.el (comint-dynamic-complete-as-filename)
(comint-dynamic-complete-filename): Correctly call
completion-in-region.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index e4bc530f361..5548d19ad30 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -3035,7 +3035,8 @@ Returns t if successful." (when (comint--match-partial-filename) (unless (window-minibuffer-p (selected-window)) (message "Completing file name...")) - (apply #'completion-in-region (comint--complete-file-name-data)))) + (let ((data (comint--complete-file-name-data))) + (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data))))) (defun comint-filename-completion () "Return completion data for filename at point, if any." @@ -3152,7 +3153,8 @@ in the same way as TABLE completes strings of the form (concat S2 S)." (defun comint-dynamic-complete-as-filename () "Dynamically complete at point as a filename. See `comint-dynamic-complete-filename'. Returns t if successful." - (apply #'completion-in-region (comint--complete-file-name-data))) + (let ((data (comint--complete-file-name-data))) + (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data)))) (make-obsolete 'comint-dynamic-complete-as-filename 'comint-filename-completion "24.1") |