sakito
sakit****@s2*****
2004年 3月 17日 (水) 23:23:01 JST
sakitoです。 At Wed, 17 Mar 2004 20:25:44 +0900, FUJIMOTO Hisakuni wrote: > 藤本です。 > At Wed, 17 Mar 2004 17:39:21 +0900, > Seiji Zenitani wrote: > > On 2004/03/17, at 4:17, ken_taka wrote: > > > 「NHK 番組表.txt」と「表示用テキスト.txt」というドキュメントなんです > > > が、これを開くと白紙で、ミニバッファに（New file）の表示が(^^; > > > C-x C-f で開くことは可能です。 > > 本当ですね、「表示」の「表」のあとにバックスラッシュが入ってしまって、 > > 「表\示」というファイルを探してしまうようです。 > > perl の CGI（SJIS）でも文字化けする文字なので仕方ないかもしれません。 > これは、AppleScript の文字列がバックスラッシュ「\」をエスケープ文字 > として扱うからっぽいですね。SJIS で「示」の 1 バイト目は ASCIIの > 「\」と同じ値なので、「\\」と連続したパックスラッシュにしてるのでしょ > う。おそらく。ということで> 問題の文字は「表」の方です。 参考に以下にリンクはっておきました。 http://macemacsjp.sourceforge.jp/index.php?AppleScript > (defun mac-open-file () > (interactive) > (let ((path (do-applescript "try\nPOSIX path of (choose file)\nend try"))) > (when (> (length path) 3) > (setq path (substring path 1 (- (length path) 1))) > (setq path (decode-coding-string path 'sjis-mac)) > (find-file (replace-regexp-in-string "\\\\\\(.\\)" "\\1" path))))) スマートだ。。 一文字ずつ変換するコーディング書いてしまっていました。 ---- sakito http://sakito.s2.xrea.com/ mailto:sakit****@s2***** MacEmacs JP http://sourceforge.jp/projects/macemacsjp/ MacEmacsen ML http://lists.sourceforge.jp/mailman/listinfo/macemacsjp-users Emacs Antenna http://a.hatena.ne.jp/sakito/simple
