[xyzzy:01042] Re: ファイル名を小文字化したい

[Seiya Suda <EZU11330@xxxxxxxxxxxxxxxx>]

亀井さん、こんにちは。

        Sat, 14 Nov 1998 22:06:33 +0900 の
        [xyzzy:01039] Re: ファイル名を小文字化したい
        に関するメールにお答えします。

> (defun filer-downcase-filename ()
>   (let ((files (filer-get-mark-files)))
>     (when (and files (yes-or-no-p "小文字にしまっせ"))
>       (filer-subscribe-to-reload (filer-get-directory))
>       (mapc #'(lambda (x) (rename-file x (string-downcase x))) files)
>       (filer-demand-reload)
>       (filer-goto-file (file-namestring (car files))))
>     t))

すばらしいです。.xyzzy にさっそく上のと次を書いて eval-buffer
したら魔法が実現しました。

(define-key ed::filer-keymap #\C-l 'filer-downcase-filename)

--------
須田誠也
EZU11330@xxxxxxxxxxx