mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(Ffind_file_name_handler): Give precedence to handlers

Browse source 
which match the end of the file-name.
(Fsubstitute_in_file_name): Don't signal an error if $ENVVAR
is not a valid env var, but leave it as is instead.
This commit is contained in:
Stefan Monnier 2001-11-26 22:54:37 +00:00
parent cfaa4a1b8e
commit 8d2ced5397
1 changed files with 22 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/fileio.c
View file

@ -336,7 +336,8 @@ use the standard functions without calling themselves recursively. */)
Lisp_Object filename, operation;
{
/* This function must not munge the match data. */
Lisp_Object chain, inhibited_handlers;
Lisp_Object chain, inhibited_handlers, result = Qnil;
int pos = -1;
CHECK_STRING (filename);
@ -353,21 +354,26 @@ use the standard functions without calling themselves recursively. */)
if (CONSP (elt))
{
Lisp_Object string;
int match_pos;
string = XCAR (elt);
if (STRINGP (string) && fast_string_match (string, filename) >= 0)
if (STRINGP (string)
&& (match_pos = fast_string_match (string, filename)) > pos)
{
Lisp_Object handler, tem;
handler = XCDR (elt);
tem = Fmemq (handler, inhibited_handlers);
if (NILP (tem))
return handler;
{
result = handler;
pos = match_pos;
}
}
}
QUIT;
}
return Qnil;
return result;
}
DEFUN ("file-name-directory", Ffile_name_directory, Sfile_name_directory,
@ -2101,9 +2107,13 @@ duplicates what `expand-file-name' does. */)
/* Get variable value */
o = (unsigned char *) egetenv (target);
if (!o) goto badvar;
total += strlen (o);
substituted = 1;
if (o)
{
total += strlen (o);
substituted = 1;
}
else if (*p == '}')
goto badvar;
}
if (!substituted)
@ -2153,9 +2163,11 @@ duplicates what `expand-file-name' does. */)
/* Get variable value */
o = (unsigned char *) egetenv (target);
if (!o)
goto badvar;
if (STRING_MULTIBYTE (filename))
{
*x++ = '$';
strcpy (x, target); x+= strlen (target);
}
else if (STRING_MULTIBYTE (filename))
{
/* If the original string is multibyte,
convert what we substitute into multibyte. */