diff options
| -rw-r--r-- | src/dired.c | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/src/dired.c b/src/dired.c index fe1d8098c77..d21cb65c9d3 100644 --- a/src/dired.c +++ b/src/dired.c @@ -117,6 +117,8 @@ Lisp_Object Qfile_name_completion; Lisp_Object Qfile_name_all_completions; Lisp_Object Qfile_attributes; Lisp_Object Qfile_attributes_lessp; + +static int scmp P_ ((unsigned char *, unsigned char *, int)); Lisp_Object @@ -734,6 +736,34 @@ file_name_completion (file, dirname, all_flag, ver_flag) return Fsignal (Qquit, Qnil); } +/* Compare exactly LEN chars of strings at S1 and S2, + ignoring case if appropriate. + Return -1 if strings match, + else number of chars that match at the beginning. */ + +static int +scmp (s1, s2, len) + register unsigned char *s1, *s2; + int len; +{ + register int l = len; + + if (completion_ignore_case) + { + while (l && DOWNCASE (*s1++) == DOWNCASE (*s2++)) + l--; + } + else + { + while (l && *s1++ == *s2++) + l--; + } + if (l == 0) + return -1; + else + return len - l; +} + static int file_name_completion_stat (dirname, dp, st_addr) Lisp_Object dirname; |