diff options
| author | Kenichi Handa | 2006-11-20 12:10:54 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2006-11-20 12:10:54 +0000 |
| commit | db8ab0f587fa7b012fb25dfff53e1a57ea25c98d (patch) | |
| tree | 5ed922534c10b8acd6feb9b86e69703e3a094cfc | |
| parent | 2eae97d0f4b894bcbe2ab3c549992822154182e3 (diff) | |
| download | emacs-db8ab0f587fa7b012fb25dfff53e1a57ea25c98d.tar.gz emacs-db8ab0f587fa7b012fb25dfff53e1a57ea25c98d.zip | |
(Fread_file_name_internal): Use SBYTES (not SCHARS) to
check the tailing slash of a filename.
| -rw-r--r-- | src/fileio.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index 52a62cebe9c..9b611bb7fd1 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -6118,7 +6118,7 @@ DEFUN ("read-file-name-internal", Fread_file_name_internal, Sread_file_name_inte | |||
| 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 | } |