From: Dave Love <fx@gnu.org>
Date: Fri, 9 Jun 2000 09:42:05 +0000 (+0000)
Subject: (after-save-hook): Customize, with
X-Git-Tag: emacs-pretest-21.0.90~3429
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22ddd2994787b9c10332b5356c040ea06ee99027;p=emacs.git

(after-save-hook): Customize, with
make-buffer-file-executable-if-script-p as an option.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7cc7198b371..33c5f78f5d1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2000-06-09  Dave Love  <fx@gnu.org>
+
+	* executable.el: Byte compile dynamic.
+	(executable-insert): Change custom type.
+	(executable-find): Add autoload cookie.
+	(make-buffer-file-executable-if-script-p): New function.  From
+	Noah Friedman.
+
+	* files.el (after-save-hook): Customize, with
+	make-buffer-file-executable-if-script-p as an option.
+
 2000-06-09  Kenichi Handa  <handa@etl.go.jp>
 
 	* ps-mule.el (ps-mule-font-info-database-bdf): Prefer the font
diff --git a/lisp/files.el b/lisp/files.el
index dfeefc1277e..a4e205c47f4 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2495,8 +2495,11 @@ the last real save, but optional arg FORCE non-nil means delete anyway."
 (defvar auto-save-hook nil
   "Normal hook run just before auto-saving.")
 
-(defvar after-save-hook nil
-  "Normal hook that is run after a buffer is saved to its file.")
+(defcustom after-save-hook nil
+  "Normal hook that is run after a buffer is saved to its file."
+  :options '(make-buffer-file-executable-if-script-p)
+  :type 'hook
+  :group 'files)
 
 (defvar save-buffer-coding-system nil
   "If non-nil, use this coding system for saving the buffer.