diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2009-11-16 12:16:05 -0500 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2009-12-17 20:02:35 -0500 |
| commit | 6751d6db6bdf3303b82dd184249e570930a6c561 (patch) | |
| tree | c66a95c7ccd00b07aa6c74074a68ad9e335ea272 | |
| parent | 72b3aa56afc776506a0b51c008c808a536a4f1c3 (diff) | |
| download | guile-6751d6db6bdf3303b82dd184249e570930a6c561.tar.gz | |
Allow more characters in coding system names in Emacs-style declarations.
* libguile/read.c (scm_i_scan_for_encoding): Allow more punctuation
symbols in coding system names.
| -rw-r--r-- | libguile/read.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/read.c b/libguile/read.c index f085944be..63880841c 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -1515,8 +1515,7 @@ scm_i_scan_for_encoding (SCM port) i = 0; while (pos + i - header <= SCM_ENCODING_SEARCH_SIZE && pos + i - header < bytes_read - && (isalnum((int) pos[i]) || pos[i] == '_' || pos[i] == '-' - || pos[i] == '.')) + && (isalnum ((int) pos[i]) || strchr ("_-.:/,+=()", pos[i]) != NULL)) i++; if (i == 0) |