From: Kenichi Handa <handa@m17n.org>
Date: Mon, 20 Nov 2006 12:14:46 +0000 (+0000)
Subject: (Fread_file_name_internal): Use SBYTES (not SCHARS) to
X-Git-Tag: emacs-pretest-22.0.92~588
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e892ae3546b93850510ebd2d03eeb4495f6c88b;p=emacs.git

(Fread_file_name_internal): Use SBYTES (not SCHARS) to
check the tailing slash of a filename.
---

diff --git a/src/fileio.c b/src/fileio.c
index fa7a2d0cd85..37afd37ad46 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -6202,7 +6202,7 @@ DEFUN ("read-file-name-internal", Fread_file_name_internal, Sread_file_name_inte
 	      Lisp_Object tem = XCAR (all);
 	      int len;
 	      if (STRINGP (tem) &&
-		  (len = SCHARS (tem), len > 0) &&
+		  (len = SBYTES (tem), len > 0) &&
 		  IS_DIRECTORY_SEP (SREF (tem, len-1)))
 		comp = Fcons (tem, comp);
 	    }