mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-28 15:12:57 +00:00
parent f067044f47
commit fa75f22d59
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/executable.el
View file

@ -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