comparison src/fileio.c @ 90664:aa6d1499ee0a

(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:10:54 +0000
parents b14bb2d35e4f
children dbe3f29e61d6
comparison
equal deleted inserted replaced
90663:62483065cf2b 90664:aa6d1499ee0a
6116 for (comp = Qnil; CONSP (all); all = XCDR (all)) 6116 for (comp = Qnil; CONSP (all); all = XCDR (all))
6117 { 6117 {
6118 Lisp_Object tem = XCAR (all); 6118 Lisp_Object tem = XCAR (all);
6119 int len; 6119 int len;
6120 if (STRINGP (tem) && 6120 if (STRINGP (tem) &&
6121 (len = SCHARS (tem), len > 0) && 6121 (len = SBYTES (tem), len > 0) &&
6122 IS_DIRECTORY_SEP (SREF (tem, len-1))) 6122 IS_DIRECTORY_SEP (SREF (tem, len-1)))
6123 comp = Fcons (tem, comp); 6123 comp = Fcons (tem, comp);
6124 } 6124 }
6125 } 6125 }
6126 else 6126 else