[xyzzy:05599] Re: 要望です : ファイラーについて

[Nakanishi Takahiro <naka@xxxxxxxxxxxxx>]

中西です。

> ・EmacsのDired風に、選択したファイルを#\Bでまとめてbyte-compileしたい
>       この機能が標準装備だと嬉しいです。
>       このぐらい自分で関数書きなさい、と叱られそうですが…

これだけ私の.xyzzyに書いてあるので付けてみます。

(defun filer-byte-compile ()
  (interactive)
  (let ((files (or (ed::filer-get-mark-files)
				   (let ((f (filer-get-current-file)))
					 (and f (list f))))))
	(when files
	  (long-operation
		(mapc #'(lambda (file)
				  (unless (file-directory-p file)
					(byte-compile-file file)))
			  files)))
	(filer-clear-all-marks)
	(filer-reload)))
(define-key filer-keymap #\B 'filer-byte-compile)
(define-key filer-keymap #\I 'network-disconnect-dialog)
(define-key filer-keymap #\H 'network-connect-dialog)

#最後の2行は蛇足
---
naka@xxxxxxxxxxxxx