Seiji Zenitani
zenit****@tkg*****
2004年 3月 16日 (火) 20:58:38 JST
銭谷です。こんばんは。
ken_takaさん、動作テスト、どうもありがとうございました。
藤本さんのご指摘通り、sjis-mac を試してみるとうまく動作しました。
最小構成としては、次のようにしてしまってよろしいでしょうか？
(defun mac-open-file ()
(interactive)
(let ((file ""))
(setq 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)))
))
おかげさまで、かなりMacらしく快適に作業できるようになりました。
どうもありがとうございました。
では。
銭谷