diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-15 04:37:20 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-15 04:37:20 +0000 |
| commit | 477dbb5a48af1599b68e2c36e128ff8fa0778521 (patch) | |
| tree | 36f5b77152b3e72727e227866e3ff7c5431513dd /lisp/vc-svn.el | |
| parent | 34fac0ce0591cdaebe675a69f67878e54e183cae (diff) | |
| download | emacs-477dbb5a48af1599b68e2c36e128ff8fa0778521.tar.gz | |
* vc-arch.el (vc-arch-delete-rej-if-obsolete): Remove the
after-save-hook so that it is not called multiple times.
* vc-svn.el (vc-svn-resolve-when-done): Likewise.
Diffstat (limited to 'lisp/vc-svn.el')
| -rw-r--r-- | lisp/vc-svn.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/vc-svn.el b/lisp/vc-svn.el index 3e67a89afc7..0b0dd1ed74c 100644 --- a/lisp/vc-svn.el +++ b/lisp/vc-svn.el @@ -497,8 +497,10 @@ and that it passes `vc-svn-global-switches' to it before FLAGS." "Call \"svn resolved\" if the conflict markers have been removed." (save-excursion (goto-char (point-min)) - (if (not (re-search-forward "^<<<<<<< " nil t)) - (vc-svn-command nil 0 buffer-file-name "resolved")))) + (unless (re-search-forward "^<<<<<<< " nil t) + (vc-svn-command nil 0 buffer-file-name "resolved") + ;; Remove the hook so that it is not called multiple times. + (remove-hook 'after-save-hook 'vc-svn-resolve-when-done t)))) ;; Inspired by vc-arch-find-file-hook. (defun vc-svn-find-file-hook () |