> 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
