diff options
| author | Richard M. Stallman | 1994-03-27 19:46:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-27 19:46:27 +0000 |
| commit | b5bcaf3ebb7e491b63f32a41d02f4b2fc3e55cac (patch) | |
| tree | eb5d073a281266571826ba648a19c35fd59df6c6 | |
| parent | 2cb6da5c7863c517e711e57165452c0ab39716b4 (diff) | |
| download | emacs-b5bcaf3ebb7e491b63f32a41d02f4b2fc3e55cac.tar.gz emacs-b5bcaf3ebb7e491b63f32a41d02f4b2fc3e55cac.zip | |
(vc-find-file-hook): Set backup-inhibited.
| -rw-r--r-- | lisp/vc-hooks.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 64200795928..6e1878ada02 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el | |||
| @@ -246,8 +246,10 @@ visiting FILE." | |||
| 246 | (vc-file-setprop buffer-file-name 'vc-backend nil)) | 246 | (vc-file-setprop buffer-file-name 'vc-backend nil)) |
| 247 | (if (and (vc-mode-line buffer-file-name) (not vc-make-backup-files)) | 247 | (if (and (vc-mode-line buffer-file-name) (not vc-make-backup-files)) |
| 248 | (progn | 248 | (progn |
| 249 | (make-local-variable 'make-backup-files) | 249 | ;; Use this variable, not make-backup-files, |
| 250 | (setq make-backup-files nil)))) | 250 | ;; because this is for things that depend on the file name. |
| 251 | (make-local-variable 'backup-inhibited) | ||
| 252 | (setq backup-inhibited t)))) | ||
| 251 | 253 | ||
| 252 | (add-hook 'find-file-hooks 'vc-find-file-hook) | 254 | (add-hook 'find-file-hooks 'vc-find-file-hook) |
| 253 | 255 | ||