comparison src/fileio.c @ 74097:fcd1f8fd7afe

(Fread_file_name_internal): Use SBYTES (not SCHARS) to check the tailing slash of a filename.
author Kenichi Handa <handa@m17n.org>
date Mon, 20 Nov 2006 12:14:46 +0000
parents dc615ff0529f
children cb533833bfb7
comparison
equal deleted inserted replaced
74096:744c4854909d 74097:fcd1f8fd7afe
6200 for (comp = Qnil; CONSP (all); all = XCDR (all)) 6200 for (comp = Qnil; CONSP (all); all = XCDR (all))
6201 { 6201 {
6202 Lisp_Object tem = XCAR (all); 6202 Lisp_Object tem = XCAR (all);
6203 int len; 6203 int len;
6204 if (STRINGP (tem) && 6204 if (STRINGP (tem) &&
6205 (len = SCHARS (tem), len > 0) && 6205 (len = SBYTES (tem), len > 0) &&
6206 IS_DIRECTORY_SEP (SREF (tem, len-1))) 6206 IS_DIRECTORY_SEP (SREF (tem, len-1)))
6207 comp = Fcons (tem, comp); 6207 comp = Fcons (tem, comp);
6208 } 6208 }
6209 } 6209 }
6210 else 6210 else