[xyzzy:06114] Re: Q: filer "]" 送る機能

["r.hiramatsu" <ryo@xxxxxxxxxxxxxxxxxxxxx>]

亀井さん


ryo_hです。

>そすると、とりあえずこうかな。文字数の制限はまだあるけど。
>
>(defun filer-send-to ()
>..........
>	      (shell-execute dest (filer-get-directory)
>			     (format nil "~{\"~a\"~^ ~}"
>				     (mapcar #'(lambda (x)
>						 (file-namestring
>						  (substitute-string x "/$" 
"")))
>					     
(filer-get-mark-files)))))))))))


残念ですが、だめでした。
c:\cp\~.mp3
の"cp" folderを送りましたが、playListに"cp"が表示されるのみです。




---------- 何か変なことをしているのだろうか？---
初心者ですので、処理手順を記しておきます。
間違っていましたらお教えください。
 1. filer.l & .lc 再作成
    1.1 edit  ~/lisp/filer.l
          "filer-send-to" function を置き換え
    1.2 erase ~/lisp/filer.lc
    1.3 .lc 作成
          M-x byte-compile-file "filer.l"
 2. ~/XYZZY.w98 再作成
    2.1 erase XYZZY.w98
    2.2 xyzzy再起動
---------

以上