diff options
| author | Jim Blandy | 1993-05-19 06:01:21 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-05-19 06:01:21 +0000 |
| commit | e44320953357900a80cd0b9a5e8e832f1005c457 (patch) | |
| tree | 3fee993680b968e31c09551d3344a676f813dce1 /src | |
| parent | 90ab1a81b966e2ecaaa36d98ecbbfaae837271f5 (diff) | |
| download | emacs-e44320953357900a80cd0b9a5e8e832f1005c457.tar.gz emacs-e44320953357900a80cd0b9a5e8e832f1005c457.zip | |
* fileio.c (Ffind_file_name_handler): Check that FILENAME is a
string.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fileio.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/fileio.c b/src/fileio.c index 5e6f048b9c2..ff79504430c 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -174,6 +174,8 @@ A file name is handled if one of the regular expressions in\n\ | |||
| 174 | { | 174 | { |
| 175 | /* This function must not munge the match data. */ | 175 | /* This function must not munge the match data. */ |
| 176 | 176 | ||
| 177 | CHECK_STRING (filename, 0); | ||
| 178 | |||
| 177 | Lisp_Object chain; | 179 | Lisp_Object chain; |
| 178 | for (chain = Vfile_name_handler_alist; XTYPE (chain) == Lisp_Cons; | 180 | for (chain = Vfile_name_handler_alist; XTYPE (chain) == Lisp_Cons; |
| 179 | chain = XCONS (chain)->cdr) | 181 | chain = XCONS (chain)->cdr) |