Mercurial > hg
changeset 2517:0086056322da
mercurial.el: inhibit backups for files managed by mercurial
| author | Vadim Gelfer <vadim.gelfer@gmail.com> |
|---|---|
| date | Thu, 29 Jun 2006 10:27:09 -0700 |
| parents | 4716a58c8cd5 |
| children | d78ae783499d |
| files | contrib/mercurial.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)