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 () |