Mercurial > emacs
comparison lisp/comint.el @ 81822:64c8ecd78bf2
(comint-dynamic-complete-as-filename,comint-dynamic-list-filename-completions):
Use read-file-name-completion-ignore-case.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 12 Jul 2007 04:14:48 +0000 |
| parents | 2e8d5916d236 |
| children | b314debca594 |
comparison
equal
deleted
inserted
replaced
| 81821:0d37b602a4f0 | 81822:64c8ecd78bf2 |
|---|---|
| 2803 (comint-dynamic-complete-as-filename))) | 2803 (comint-dynamic-complete-as-filename))) |
| 2804 | 2804 |
| 2805 (defun comint-dynamic-complete-as-filename () | 2805 (defun comint-dynamic-complete-as-filename () |
| 2806 "Dynamically complete at point as a filename. | 2806 "Dynamically complete at point as a filename. |
| 2807 See `comint-dynamic-complete-filename'. Returns t if successful." | 2807 See `comint-dynamic-complete-filename'. Returns t if successful." |
| 2808 (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt cygwin))) | 2808 (let* ((completion-ignore-case read-file-name-completion-ignore-case) |
| 2809 (completion-ignored-extensions comint-completion-fignore) | 2809 (completion-ignored-extensions comint-completion-fignore) |
| 2810 ;; If we bind this, it breaks remote directory tracking in rlogin.el. | 2810 ;; If we bind this, it breaks remote directory tracking in rlogin.el. |
| 2811 ;; I think it was originally bound to solve file completion problems, | 2811 ;; I think it was originally bound to solve file completion problems, |
| 2812 ;; but subsequent changes may have made this unnecessary. sm. | 2812 ;; but subsequent changes may have made this unnecessary. sm. |
| 2813 ;;(file-name-handler-alist nil) | 2813 ;;(file-name-handler-alist nil) |
| 2932 | 2932 |
| 2933 | 2933 |
| 2934 (defun comint-dynamic-list-filename-completions () | 2934 (defun comint-dynamic-list-filename-completions () |
| 2935 "List in help buffer possible completions of the filename at point." | 2935 "List in help buffer possible completions of the filename at point." |
| 2936 (interactive) | 2936 (interactive) |
| 2937 (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt cygwin))) | 2937 (let* ((completion-ignore-case read-file-name-completion-ignore-case) |
| 2938 ;; If we bind this, it breaks remote directory tracking in rlogin.el. | 2938 ;; If we bind this, it breaks remote directory tracking in rlogin.el. |
| 2939 ;; I think it was originally bound to solve file completion problems, | 2939 ;; I think it was originally bound to solve file completion problems, |
| 2940 ;; but subsequent changes may have made this unnecessary. sm. | 2940 ;; but subsequent changes may have made this unnecessary. sm. |
| 2941 ;;(file-name-handler-alist nil) | 2941 ;;(file-name-handler-alist nil) |
| 2942 (filename (or (comint-match-partial-filename) "")) | 2942 (filename (or (comint-match-partial-filename) "")) |