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