[Mew-dist 545] make-symbolic-link (was Re: archives)

[OKUNISHI Fujikazu]

make-symbolic-link で生き恥晒してしまった奥西です。:-)

>>>>> "Sat, 01 Mar 1997 11:49:12 +0900" に発信されたメッセージ
>>>>> <19970301114912K.ksakai at example.com> にて
>>>>> "酒井さん" == SAKAI Kiyotaka <ksakai at example.com> が仰るには..

酒井さん> make-symbolic-link という関数は Emacs 18 でもありましたので、この問題
酒井さん> は OS2 固有の問題だと思います。

＃Win32 版がどうなってるか知りたい気もします。。

山本さん> > OS/2 での本質的な解決方法は、OS/2 の Emacs で 
山本さん> > make-symbolic-link という関数名で実際にはコピーする関数を
山本さん> > 定義することだと思います。これで、Mew だけでなく他のプログ
山本さん> > ラムも手を加えずになんとか動くようになるでしょう。OS/2 の 
山本さん> > Emacs の開発がどういう状況か知りませんが、対応は可能でしょ
山本さん> > うか？

酒井さん> もし make-symbolic-link を使っている個所がそれほど多くないの
酒井さん> であれば、Mew の方で fboundp を使って

酒井さん>   (if (fboundp 'make-symbolic-link)
酒井さん>       (make-symbolic-link ...)
酒井さん>     (copy-file ...))

酒井さん> という書き方もできるかと思います。少なくても、mew-os2-p を定義して使う
酒井さん> よりはきれいだと思います。

いづれにしても、OS/2 Mule 側で対応すべきことでしょうね。dired-x なんか
でも使ってることですし（OS/2 が link を実装すればいいのにな）。

僕は tm も使っているので、$TM-OOMORI/tl/cless.el というのを使って

(if (eq system-type 'OS/2)
    (progn
	(require 'cless)	;; tm/tl/cless.el
	(defalias 'make-symbolic-link 'copy-file)))

してから   `C-h f'  "make-symbolic-link"  [enter]

make-symbolic-link: alias for `copy-file'.

Copy FILE to NEWNAME.  Both args must be strings.
Signals a `file-already-exists' error if file NEWNAME already exists,
unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.
A number as third arg means request confirmation if NEWNAME already exists.
This is what happens in interactive use with M-x.
Fourth arg KEEP-TIME non-nil means give the new file the same
last-modified time as the old one.  (This works on only some systems.)
A prefix arg makes KEEP-TIME non-nil.

(copy-file FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE)

と上書きできるうのまでは確認しました。(^_^; まあなんとでも逃げ道はある
ような気がしてきました。
----
奥西藤和 / OKUNISHI Fujikazu
mailto:fuji0924 at example.com
URL: http://web.kyoto-inet.or.jp/people/fuji0924/os2mew.html
# PGP Public Key: mailto:pgp-public-keys at example.com /Subject:GET 0x1B8BF431
# DoCoMo: 010-48-53925