diff options
| author | Richard M. Stallman | 1995-06-21 19:46:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-21 19:46:58 +0000 |
| commit | dc61cb9dd8c79d95f5020908b171c8482a17908a (patch) | |
| tree | 8ad4bd979678025e3a81528ff3330e44de3bb086 /lib-src | |
| parent | 5281dea44219384e830d49e7ac646ce93ccf4814 (diff) | |
| download | emacs-dc61cb9dd8c79d95f5020908b171c8482a17908a.tar.gz emacs-dc61cb9dd8c79d95f5020908b171c8482a17908a.zip | |
(scan_file): Make sure it never looks at filename[-1].
Diffstat (limited to 'lib-src')
| -rw-r--r-- | lib-src/make-docfile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c index 948a7257089..f647c21deaa 100644 --- a/lib-src/make-docfile.c +++ b/lib-src/make-docfile.c | |||
| @@ -177,9 +177,9 @@ scan_file (filename) | |||
| 177 | char *filename; | 177 | char *filename; |
| 178 | { | 178 | { |
| 179 | int len = strlen (filename); | 179 | int len = strlen (filename); |
| 180 | if (!strcmp (filename + len - 4, ".elc")) | 180 | if (len > 4 && !strcmp (filename + len - 4, ".elc")) |
| 181 | return scan_lisp_file (filename, READ_BINARY); | 181 | return scan_lisp_file (filename, READ_BINARY); |
| 182 | else if (!strcmp (filename + len - 3, ".el")) | 182 | else if (len > 3 && !strcmp (filename + len - 3, ".el")) |
| 183 | return scan_lisp_file (filename, READ_TEXT); | 183 | return scan_lisp_file (filename, READ_TEXT); |
| 184 | else | 184 | else |
| 185 | return scan_c_file (filename, READ_TEXT); | 185 | return scan_c_file (filename, READ_TEXT); |