mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(vc-find-file-hook): Discard vc status of file

Browse Source 
if we will actually have to create the buffer.
This commit is contained in:
Richard M. Stallman 1993-02-24 18:07:12 +00:00
parent 09dd7e7e41
commit b26c217c09
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/vc-hooks.el
View File

@ -5,7 +5,7 @@
;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
;; Version: 4.0
;; $Id: vc-hooks.el,v 1.5 1992/10/20 18:43:33 rms Exp rms $
;; $Id: vc-hooks.el,v 1.6 1992/10/24 20:07:08 rms Exp rms $
;; This file is part of GNU Emacs.
@ -134,6 +134,9 @@ visiting FILE."
;;; install a call to the above as a find-file hook
(defun vc-find-file-hook ()
;; Recompute whether file is version controlled,
;; if user has killed the buffer and revisited.
(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)