diff options
| -rw-r--r-- | lisp/vc-hooks.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index fc84af99958..f7de918f043 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> | 5 | ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> |
| 6 | ;; Version: 4.0 | 6 | ;; Version: 4.0 |
| 7 | 7 | ||
| 8 | ;; $Id: vc-hooks.el,v 1.5 1992/10/20 18:43:33 rms Exp rms $ | 8 | ;; $Id: vc-hooks.el,v 1.6 1992/10/24 20:07:08 rms Exp rms $ |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -134,6 +134,9 @@ visiting FILE." | |||
| 134 | 134 | ||
| 135 | ;;; install a call to the above as a find-file hook | 135 | ;;; install a call to the above as a find-file hook |
| 136 | (defun vc-find-file-hook () | 136 | (defun vc-find-file-hook () |
| 137 | ;; Recompute whether file is version controlled, | ||
| 138 | ;; if user has killed the buffer and revisited. | ||
| 139 | (vc-file-setprop buffer-file-name 'vc-backend nil) | ||
| 137 | (if (and (vc-mode-line buffer-file-name) (not vc-make-backup-files)) | 140 | (if (and (vc-mode-line buffer-file-name) (not vc-make-backup-files)) |
| 138 | (progn | 141 | (progn |
| 139 | (make-local-variable 'make-backup-files) | 142 | (make-local-variable 'make-backup-files) |