Seiji Zenitani
zenit****@tkg*****
2004年 3月 17日 (水) 17:39:21 JST
On 2004/03/17, at 4:17, ken_taka wrote:
>
> 「NHK 番組表.txt」と「表示用テキスト.txt」というドキュメントなんです
> が、これを開くと白紙で、ミニバッファに（New file）の表示が(^^;
> C-x C-f で開くことは可能です。
本当ですね、「表示」の「表」のあとにバックスラッシュが入ってしまって、
「表\示」というファイルを探してしまうようです。
perl の CGI（SJIS）でも文字化けする文字なので仕方ないかもしれません。
↓そのような場合は、警告音を鳴らすようにしてみました。
(defun mac-open-file ()
"Document forthcoming..."
(interactive)
(let ((file (do-applescript "try
POSIX path of (choose file)
end try")))
(if (> (length file) 3)
(setq file (decode-coding-string
(substring file 1 (- (length file) 1)) 'sjis-mac)))
(if (and (not (equal file ""))(file-readable-p file))
(find-file file)
(beep))
))
銭谷