# HG changeset patch
# User Vadim Gelfer <vadim.gelfer@gmail.com>
# Date 1151602029 25200
# Node ID 0086056322dacb4c7f808745cba6e9bda39fbc4f
# Parent  4716a58c8cd5680396652b0f387e8d4fb4045f65
mercurial.el: inhibit backups for files managed by mercurial

diff -r 4716a58c8cd5 -r 0086056322da contrib/mercurial.el
--- a/contrib/mercurial.el	Tue Jun 27 11:32:37 2006 -0700
+++ b/contrib/mercurial.el	Thu Jun 29 10:27:09 2006 -0700
@@ -653,7 +653,7 @@
 you're already familiar with VC, the same keybindings and functions
 will generally work.
 
-Below is a list of many common SCM tasks.  In the list, `G/L'
+Below is a list of many common SCM tasks.  In the list, `G/L\'
 indicates whether a key binding is global (G) to a repository or local
 (L) to a file.  Many commands take a prefix argument.
 
@@ -682,7 +682,9 @@
 Update working directory after pull   G    C-c h u      hg-update
 See changes that can be pushed        G    C-c h .      hg-outgoing
 Push changes                          G    C-c h >      hg-push"
-  (run-hooks 'hg-mode-hook))
+  (unless vc-make-backup-files
+    (set (make-local-variable 'backup-inhibited) t))
+    (run-hooks 'hg-mode-hook))
 
 (defun hg-find-file-hook ()
   (when (hg-mode-line)
@@ -729,6 +731,8 @@
       (goto-char 0)
       (cd (hg-root path)))
     (when update
+      (unless vc-make-backup-files
+	(set (make-local-variable 'backup-inhibited) t))
       (with-current-buffer buf
 	(hg-mode-line)))))
 
@@ -968,6 +972,7 @@
       (cd (hg-root path)))
     (when update
       (with-current-buffer buf
+	(set (make-local-variable 'backup-inhibited) nil)
 	(hg-mode-line)))))
 
 (defun hg-incoming (&optional repo)