From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 28 Aug 1995 15:12:57 +0000 (+0000)
Subject: (executable-set-magic): Use make-local-hook for after-save-hook.
X-Git-Tag: emacs-19.34~2898
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa75f22d5931fa85b48ddf6e8fa1f483dacd0db9;p=emacs.git

(executable-set-magic): Use make-local-hook for after-save-hook.
---

diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index 11dd54f1e7d..c0b3e99c227 100644
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -182,8 +182,8 @@ executable."
       (let ((point (point-marker))
 	    (buffer-modified-p (buffer-modified-p)))
 	(goto-char (point-min))
-	(make-local-variable 'after-save-hook)
-	(add-hook 'after-save-hook 'executable-chmod)
+	(make-local-hook 'after-save-hook)
+	(add-hook 'after-save-hook 'executable-chmod nil t)
 	(if (looking-at "#![ \t]*\\(.*\\)$")
 	    (and (goto-char (match-beginning 1))
 		 (not (string= argument