# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1184213688 0
# Node ID 64c8ecd78bf2eac7874d41b7667839c93dd3f9e2
# Parent  0d37b602a4f021b82c0ac862c163d75ac507b150
(comint-dynamic-complete-as-filename,comint-dynamic-list-filename-completions):
Use read-file-name-completion-ignore-case.

diff -r 0d37b602a4f0 -r 64c8ecd78bf2 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jul 12 03:13:37 2007 +0000
+++ b/lisp/ChangeLog	Thu Jul 12 04:14:48 2007 +0000
@@ -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 -r 0d37b602a4f0 -r 64c8ecd78bf2 lisp/comint.el
--- a/lisp/comint.el	Thu Jul 12 03:13:37 2007 +0000
+++ b/lisp/comint.el	Thu Jul 12 04:14:48 2007 +0000
@@ -2805,7 +2805,7 @@
 (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 @@
 (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.