mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Fix off-by-one error in processing Emacs-style coding declaration.

Browse source 
* libguile/read.c (scm_i_scan_for_encoding): Don't copy the first
  character after the coding declaration into the new string.
This commit is contained in:
Ken Raeburn 2009-11-14 14:53:46 -05:00
parent b10d93309b
commit b9fd657add
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/read.c
View file

@ -1513,7 +1513,7 @@ scm_i_scan_for_encoding (SCM port)
if (i == 0)
return NULL;
encoding = scm_gc_strndup (pos, i + 1, "encoding");
encoding = scm_gc_strndup (pos, i, "encoding");
for (i = 0; i < strlen (encoding); i++)
encoding[i] = toupper ((int) encoding[i]);