/[emacs]/emacs/src/fileio.c
ViewVC logotype

Diff of /emacs/src/fileio.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.438 by eliz, Fri Feb 8 19:16:31 2002 UTC revision 1.439 by eliz, Tue Feb 26 18:41:36 2002 UTC
# Line 2069  duplicates what `expand-file-name' does. Line 2069  duplicates what `expand-file-name' does.
2069                                && *s != ':'                                && *s != ':'
2070  #endif /* VMS */  #endif /* VMS */
2071                                ); s++);                                ); s++);
2072            if (s > p + 1)            if (p[0] == '~' && s > p + 1) /* we've got "/~something/" */
2073              {              {
2074                o = (unsigned char *) alloca (s - p + 1);                o = (unsigned char *) alloca (s - p + 1);
2075                bcopy ((char *) p, o, s - p);                bcopy ((char *) p, o, s - p);
# Line 2080  duplicates what `expand-file-name' does. Line 2080  duplicates what `expand-file-name' does.
2080            /* If we have ~/ or ~user and `user' exists, discard            /* If we have ~/ or ~user and `user' exists, discard
2081               everything up to ~.  But if `user' does not exist, leave               everything up to ~.  But if `user' does not exist, leave
2082               ~user alone, it might be a literal file name.  */               ~user alone, it might be a literal file name.  */
2083            if (s == p + 1 || pw)            if (IS_DIRECTORY_SEP (p[0]) || s == p + 1 || pw)
2084              {              {
2085                nm = p;                nm = p;
2086                substituted = 1;                substituted = 1;

Legend:
Removed from v.1.438  
changed lines
  Added in v.1.439

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26