From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 12 Jul 2001 16:29:51 +0000 (+0000)
Subject: (file_name_completion): Pass dp->d_name to
X-Git-Tag: emacs-pretest-21.0.104~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c56232f0d2082cafc8f95b822c0114dfaaf67d6;p=emacs.git

(file_name_completion): Pass dp->d_name to
Fstring_match, not elt, which is alays nil here.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 599d997b2ef..77f7b87175b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-12  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* dired.c (file_name_completion): Pass dp->d_name to
+	Fstring_match, not elt, which is always nil here.
+
 2001-07-12  Gerd Moellmann  <gerd@gnu.org>
 
 	* xselect.c (x_decline_selection_request): Handle errors
diff --git a/src/dired.c b/src/dired.c
index 9deb44d3914..19150967560 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -595,7 +595,8 @@ file_name_completion (file, dirname, all_flag, ver_flag)
 	      for (regexps = Vcompletion_regexp_list; CONSP (regexps);
 		   regexps = XCDR (regexps))
 		{
-		  tem = Fstring_match (XCAR (regexps), elt, zero);
+		  tem = Fstring_match (XCAR (regexps),
+				       make_string (dp->d_name, len), zero);
 		  if (NILP (tem))
 		    break;
 		}