[Guile-commits] GNU Guile branch, master, updated. release_1-9-6-8-g6751d6d

[Ken Raeburn]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=6751d6db6bdf3303b82dd184249e570930a6c561

The branch, master has been updated
       via  6751d6db6bdf3303b82dd184249e570930a6c561 (commit)
      from  72b3aa56afc776506a0b51c008c808a536a4f1c3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 6751d6db6bdf3303b82dd184249e570930a6c561
Author: Ken Raeburn <address@hidden>
Date:   Mon Nov 16 12:16:05 2009 -0500

    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.

-----------------------------------------------------------------------

Summary of changes:
 libguile/read.c |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/libguile/read.c b/libguile/read.c
index f085944..6388084 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)


hooks/post-receive
-- 
GNU Guile