From fa75f22d5931fa85b48ddf6e8fa1f483dacd0db9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 28 Aug 1995 15:12:57 +0000 Subject: [PATCH] (executable-set-magic): Use make-local-hook for after-save-hook. --- lisp/progmodes/executable.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.2