(vc-find-file-hook): Set backup-inhibited.

b5bcaf3e · Richard M. Stallman · 2cb6da5c · b5bcaf3e
Commit b5bcaf3e authored Mar 27, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/vc-hooks.el lisp/vc-hooks.el +4 -2

No files found.
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -246,8 +246,10 @@ visiting FILE."
      (vc-file-setprop buffer-file-name 'vc-backend nil))
  (if (and (vc-mode-line buffer-file-name) (not vc-make-backup-files))
      (progn
-	(make-local-variable 'make-backup-files)
-	(setq make-backup-files nil))))
+	;; Use this variable, not make-backup-files,
+	;; because this is for things that depend on the file name.
+	(make-local-variable 'backup-inhibited)
+	(setq backup-inhibited t))))

 (add-hook 'find-file-hooks 'vc-find-file-hook)