diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-07-12 04:14:48 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-07-12 04:14:48 +0000 |
| commit | c788d366815aba6e70d2786d1bf5894a45e8b326 (patch) | |
| tree | 67fbd8444df830ef4462b586560ebfaa754386cc /lisp/comint.el | |
| parent | 2346acf6ba2016deecfa5c7dba3de75a7c9289ae (diff) | |
| download | emacs-c788d366815aba6e70d2786d1bf5894a45e8b326.tar.gz | |
(comint-dynamic-complete-as-filename,comint-dynamic-list-filename-completions):
Use read-file-name-completion-ignore-case.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index bf53741f658..ddc3a2f503b 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2805,7 +2805,7 @@ Returns t if successful." (defun comint-dynamic-complete-as-filename () "Dynamically complete at point as a filename. See `comint-dynamic-complete-filename'. Returns t if successful." - (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt cygwin))) + (let* ((completion-ignore-case read-file-name-completion-ignore-case) (completion-ignored-extensions comint-completion-fignore) ;; If we bind this, it breaks remote directory tracking in rlogin.el. ;; I think it was originally bound to solve file completion problems, @@ -2934,7 +2934,7 @@ See also `comint-dynamic-complete-filename'." (defun comint-dynamic-list-filename-completions () "List in help buffer possible completions of the filename at point." (interactive) - (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt cygwin))) + (let* ((completion-ignore-case read-file-name-completion-ignore-case) ;; If we bind this, it breaks remote directory tracking in rlogin.el. ;; I think it was originally bound to solve file completion problems, ;; but subsequent changes may have made this unnecessary. sm. |