(file_name_completion): If completion_ignore_case is enabled, ignore

case when checking completion-regexp-list.

1 files changed, 15 insertions, 4 deletions

diff --git a/src/dired.c b/src/dired.c
index 0ae24f21548..5e8bb39bee2 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -631,10 +631,21 @@ file_name_completion (file, dirname, all_flag, ver_flag, predicate)
         XSETFASTINT (zero, 0);
 
         /* Ignore this element if it fails to match all the regexps.  */
-        for (regexps = Vcompletion_regexp_list; CONSP (regexps);
-             regexps = XCDR (regexps))
-          if (fast_string_match (XCAR (regexps), name) < 0)
-            break;
+        if (completion_ignore_case)
+          {
+            for (regexps = Vcompletion_regexp_list; CONSP (regexps);
+                 regexps = XCDR (regexps))
+              if (fast_string_match_ignore_case (XCAR (regexps), name) < 0)
+                break;
+          }
+        else
+          {
+            for (regexps = Vcompletion_regexp_list; CONSP (regexps);
+                 regexps = XCDR (regexps))
+              if (fast_string_match (XCAR (regexps), name) < 0)
+                break;
+          }
+
         if (CONSP (regexps))
           continue;
       }