diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-28 15:12:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-28 15:12:57 +0000 |
| commit | fa75f22d5931fa85b48ddf6e8fa1f483dacd0db9 (patch) | |
| tree | 6e6eceae6c87d99548e17ddf8fe2fe4f020d8890 /lisp/progmodes/executable.el | |
| parent | f067044f476426b64f1444b82acc8d7911133550 (diff) | |
| download | emacs-fa75f22d5931fa85b48ddf6e8fa1f483dacd0db9.tar.gz | |
(executable-set-magic): Use make-local-hook for after-save-hook.
Diffstat (limited to 'lisp/progmodes/executable.el')
| -rw-r--r-- | lisp/progmodes/executable.el | 4 |
1 files 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 |