🚀 go-pugleaf

>>>>> In article <futlon9iwob.fsf@koj.is.kurume-it.ac.jp>
>>>>>   Hironori Ogawa <e934206@is.kurume-it.ac.jp> writes:

> 最近，小さな Perl のスクリプトを沢山書いていて思ったのですが，emacs
> (or mule) で C-x C-s でファイルをセーブする時に，ファイルのモードを設
> 定する事はできないのでしょうか？つまり，新しいスクリプトを書いた後，い
> ちいち

> % chmod +x script.pl

> とやるのが面倒だなと思ったのです．perl mode に入った時のみファイルを実
> 行属性付きでセーブするような設定が出来れば良いのではないかと思うのです
> が，どなたかご存知でないでしょうか？

  NEmacs では動かないと思いますが、

(add-hook 'after-save-hook
	  '(lambda ()
	     (and (memq major-mode '(perl-mode))
		  (call-process "chmod" nil nil nil
				"+x" (buffer-file-name)))))

  ではどうでしょうか。
  '(perl-mode) を '(perl-mode sh-mode) などと複数併記すれば、それらの 
  mode で編集したファイルを +x することができます。また、ちょっと書き
  換えれば mode によってファイルのモードを変えることもできるでしょう。
-- 
Katsumi Yamaoka <yamaoka@ga.sony.co.jp>
MD Dep., Personal A&V Products Div., Consumer A&V Products Company,
Sony Corporation, Tokyo, Japan.