(comint-dynamic-complete-as-filename,comint-dynamic-list-filename-completions):

Use read-file-name-completion-ignore-case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5273d5e7d9f2c62ddf020b01a7492c90fd6fd7e..e21e1ce5bcd35b9cf691349866ef6e210d956b09 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,15 @@
+2007-07-12  Sean O'Rourke  <sorourke@cs.ucsd.edu>  (tiny change)
+
+       * pcomplete.el (pcomplete-entries): Obey pcomplete-ignore-case.
+
+       * comint.el (comint-dynamic-complete-as-filename):
+       Use read-file-name-completion-ignore-case.
+
 2007-07-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * comint.el (comint-dynamic-list-filename-completions):
+       Use read-file-name-completion-ignore-case.
+
        * vc-cvs.el: Require CL.
        (vc-cvs-revision-table, vc-cvs-revision-completion-table):
        New functions to provide completion of revision names.

diff --git a/lisp/comint.el b/lisp/comint.el
index bf53741f65817992b1d4b6b6e946f0a5503459d6..ddc3a2f503bfcd32da70a81c5d89cd953849aad3 100644 (file)
--- 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.