aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2001-12-19 17:14:39 +0000
committerEli Zaretskii2001-12-19 17:14:39 +0000
commita74aaa9dbb4f0027d8ba128aea4b64c7c3806746 (patch)
tree3130f6cfa2779bf2a8f1939d754d91d1ca700009
parent94995927e75399e6a5aa142a5d4916f2a3e5b36a (diff)
downloademacs-a74aaa9dbb4f0027d8ba128aea4b64c7c3806746.tar.gz
emacs-a74aaa9dbb4f0027d8ba128aea4b64c7c3806746.zip
(file_name_completion): Run the elements of
completion-ignored-extensions through ENCODE_FILE.
-rw-r--r--src/dired.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/dired.c b/src/dired.c
index d21cb65c9d3..4b6b94d8122 100644
--- a/src/dired.c
+++ b/src/dired.c
@@ -572,6 +572,9 @@ file_name_completion (file, dirname, all_flag, ver_flag)
572 elt = XCAR (tem); 572 elt = XCAR (tem);
573 if (!STRINGP (elt)) 573 if (!STRINGP (elt))
574 continue; 574 continue;
575 /* Need to encode ELT, since scmp compares unibyte
576 strings only. */
577 elt = ENCODE_FILE (elt);
575 elt_len = XSTRING (elt)->size - 1; /* -1 for trailing / */ 578 elt_len = XSTRING (elt)->size - 1; /* -1 for trailing / */
576 if (elt_len <= 0) 579 if (elt_len <= 0)
577 continue; 580 continue;
@@ -598,6 +601,9 @@ file_name_completion (file, dirname, all_flag, ver_flag)
598 { 601 {
599 elt = XCAR (tem); 602 elt = XCAR (tem);
600 if (!STRINGP (elt)) continue; 603 if (!STRINGP (elt)) continue;
604 /* Need to encode ELT, since scmp compares unibyte
605 strings only. */
606 elt = ENCODE_FILE (elt);
601 skip = len - XSTRING (elt)->size; 607 skip = len - XSTRING (elt)->size;
602 if (skip < 0) continue; 608 if (skip < 0) continue;
603 609