FUJIMOTO Hisakuni
hisa****@imasy*****
2004年 3月 16日 (火) 21:36:22 JST
藤本です。
At Tue, 16 Mar 2004 20:58:38 +0900,
Seiji Zenitani wrote:
> ken_takaさん、動作テスト、どうもありがとうございました。
> 藤本さんのご指摘通り、sjis-mac を試してみるとうまく動作しました。
> 最小構成としては、次のようにしてしまってよろしいでしょうか？
ご自由にどうぞ。。。と言いつつ、自分なら setq を使わずに
(defun mac-open-file ()
(interactive)
(let ((file (do-applescript "try
POSIX path of (choose file)
end try")))
(if (> (length file) 3)
(find-file (decode-coding-string
(substring file 1 (- (length file) 1)) 'sjis-mac)))))
とします。好みですしあまり気にしないでください。
--
FUJIMOTO Hisakuni