decoding error

decoding error

[Federico Beffa]

Hi,

in a package for AUCTeX that I'm preparing, I'm trying to replace any
reference to '/bin/sh' in '.el' files with

(with-directory-excursion el-dir
      (substitute* (find-files "." "\\.el$") (("/bin/sh") (which "sh"))))

A particular file causes Guile to produce the following error:

ice-9/boot-9.scm:106:20: Throw to key `decoding-error' with args
`("scm_getc" "input decoding error" 84 #<input: ./font-latex.el 11>)'.

This appears to be due to the following characters: "«" "»". The build
environment includes (by default):

export LC_ALL="en_US.UTF-8"
export LOCPATH="/gnu/store/...-glibc-utf8-locales-2.21/lib/locale"

Emacs says that the file is encoded with iso-8859-1-unix, so I've
tried unsetting the above two variables or setting '(setenv "LC_ALL"
"C")' or '(setlocale LC_ALL "C")' with no effect.

Any suggestion?

Thanks,
Fede

Re: decoding error

[Ricardo Wurmus]

> in a package for AUCTeX that I'm preparing, I'm trying to replace any
> reference to '/bin/sh' in '.el' files with
>
> (with-directory-excursion el-dir
>       (substitute* (find-files "." "\\.el$") (("/bin/sh") (which "sh"))))
>
> A particular file causes Guile to produce the following error:
>
> ice-9/boot-9.scm:106:20: Throw to key `decoding-error' with args
> `("scm_getc" "input decoding error" 84 #<input: ./font-latex.el 11>)'.

How about this:

(with-directory-excursion el-dir
  (with-fluids ((%default-port-encoding #f))
    (substitute* (find-files "." "\\.el$") (("/bin/sh") (which "sh")))))

~~ Ricardo

Re: decoding error

[Federico Beffa]

On Tue, Jun 16, 2015 at 12:07 PM, Ricardo Wurmus
<ricardo.wurmus@mdc-berlin.de> wrote:
> How about this:
>
> (with-directory-excursion el-dir
>   (with-fluids ((%default-port-encoding #f))
>     (substitute* (find-files "." "\\.el$") (("/bin/sh") (which "sh")))))

That did the trick.

Thanks!
Fede

Re: decoding error

[Ludovic Courtès]

Federico Beffa <beffa@ieee.org> skribis:

> Emacs says that the file is encoded with iso-8859-1-unix

In that case the solution is to tell Guile to use ISO-8859-1 as the
default encoding where you fiddle with that file:

  (paramaterize ((%default-port-encoding "ISO-8859-1"))
    (substitute* ...))

(This is equivalent to what Ricardo suggested, but making the encoding
name explicit is clearer in this case.)

Ludo’.

Re: decoding error

[Federico Beffa]

On Tue, Jun 16, 2015 at 1:20 PM, Ludovic Courtès <ludo@gnu.org> wrote:
>   (paramaterize ((%default-port-encoding "ISO-8859-1"))
>     (substitute* ...))
>
> (This is equivalent to what Ricardo suggested, but making the encoding
> name explicit is clearer in this case.)

Agreed,
Thanks!

Fede

Re: decoding error

[Federico Beffa]

On Tue, Jun 16, 2015 at 6:12 PM, Federico Beffa <beffa@ieee.org> wrote:
> On Tue, Jun 16, 2015 at 1:20 PM, Ludovic Courtès <ludo@gnu.org> wrote:
>>   (paramaterize ((%default-port-encoding "ISO-8859-1"))
>>     (substitute* ...))

By the way, '%default-port-encoding' is a fluid and therefore, if I
use 'parameterize' instead of 'with-fluids', I get an error.

Regards,
Fede

Re: decoding error

[Ludovic Courtès]

Federico Beffa <beffa@ieee.org> skribis:

> On Tue, Jun 16, 2015 at 6:12 PM, Federico Beffa <beffa@ieee.org> wrote:
>> On Tue, Jun 16, 2015 at 1:20 PM, Ludovic Courtès <ludo@gnu.org> wrote:
>>>   (paramaterize ((%default-port-encoding "ISO-8859-1"))
>>>     (substitute* ...))
>
> By the way, '%default-port-encoding' is a fluid and therefore, if I
> use 'parameterize' instead of 'with-fluids', I get an error.

Indeed, sorry for the confusion.

Ludo’.