Mercurial > emacs
comparison lisp/vc-hooks.el @ 6545:3715d5bfad50
(vc-find-file-hook): Set backup-inhibited.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 27 Mar 1994 19:46:27 +0000 |
parents | 6a97e54241a3 |
children | cdf928b318d7 |
comparison
equal
deleted
inserted
replaced
6544:a84c4990fa36 | 6545:3715d5bfad50 |
---|---|
244 ;; if user has killed the buffer and revisited. | 244 ;; if user has killed the buffer and revisited. |
245 (if buffer-file-name | 245 (if buffer-file-name |
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 |
254 ;;; more hooks, this time for file-not-found | 256 ;;; more hooks, this time for file-not-found |
255 (defun vc-file-not-found-hook () | 257 (defun vc-file-not-found-hook () |