Mercurial > emacs
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 |