748   (unless vc-make-backup-files

   748   (unless vc-make-backup-files

   749     (set (make-local-variable 'backup-inhibited) t))

   749     (set (make-local-variable 'backup-inhibited) t))

   750   (run-hooks 'hg-mode-hook))

   750   (run-hooks 'hg-mode-hook))

   751 

   751 

   752 (defun hg-find-file-hook ()

   752 (defun hg-find-file-hook ()

   755 

   756 

   756 (add-hook 'find-file-hooks 'hg-find-file-hook)

   757 (add-hook 'find-file-hooks 'hg-find-file-hook)

   757 

   758 

   758 (defun hg-after-save-hook ()

   759 (defun hg-after-save-hook ()

   759   (let ((old-status hg-status))

   760   (let ((old-status hg-status))