;;; -*- Emacs-Lisp -*-
;----------------------------------------------------------------------
;			chmod +x <script file>
;----------------------------------------------------------------------
;;; スクリプトを save する時、自動的に chmod +x を行なう
;;;     Katsumi Yamaoka <yamaoka@ga.sony.co.jp> さん作
;;;     ファイル名が . で始まる場合は chmod +x を行わないように改造 (Sep 9, 1997)
(defun make-file-executable ()
  "Make the file of this buffer executable, when it is a script source."
  (save-restriction
    (widen)
    (if (string= "#!" (buffer-substring-no-properties 1 (min 3 (point-max))))
	(let ((name (buffer-file-name)))
	  (or (equal ?. (string-to-char (file-name-nondirectory name)))
	      (let ((mode (file-modes name)))
		(set-file-modes name (logior mode (logand (/ mode 4) 73)))
		(message (concat "Wrote " name " (+x)"))))))))
(add-hook 'after-save-hook 'make-file-executable)