添削されてた

おおぅ．ご指摘ありがとうございます．> id:rubikitch さん

というか，expand-file-name があるのが見えてなかったよ．orz

とりあえずの解法としては，d:id:rubikitch:20080427:1209290484 さんので良いかと思います．

とあいえ，本当は"perl"と書いたのは暫定対応のつもりでした．
*NIXだったらシェバングで書いとけばPerl が起動すんだから，Windows的には*.pl でPerlが起動するようにしとくと.emacs の互換性的には良いかな．と思ってた次第．

expand-file-name

Convert filename name to absolute, and canonicalize it.
Second arg default-directory is directory to start with if name is relative
(does not start with slash); if default-directory is nil or missing,
the current buffer's value of `default-directory' is used.

ということで，default-directory が付いてるのが正常動作でしたね．

ちゃんと見ろよ自分，って感じです．