Commit fa75f22d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent f067044f
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment