[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master becc012 2/2: Use `unless' to have one fewer `not'
From: |
Dmitry Gutov |
Subject: |
[Emacs-diffs] master becc012 2/2: Use `unless' to have one fewer `not' |
Date: |
Sat, 16 May 2015 14:12:48 +0000 |
branch: master
commit becc0129ca5e32baa7135d9df8d118e66a30914b
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Use `unless' to have one fewer `not'
* lisp/vc/vc-git.el (vc-git-resolve-when-done): Use `unless' to
have one fewer `not'.
---
lisp/vc/vc-git.el | 14 ++++++--------
1 files changed, 6 insertions(+), 8 deletions(-)
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index b08baba..059f34e 100644
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -810,14 +810,12 @@ This prompts for a branch to merge from."
(goto-char (point-min))
(unless (re-search-forward "^<<<<<<< " nil t)
(vc-git-command nil 0 buffer-file-name "add")
- (when (and
- (eq vc-git-resolve-conflicts 'unstage-maybe)
- ;; Not doing a merge. Likely applying a stash
- ;; (bug#20292).
- (not
- (file-exists-p (expand-file-name ".git/MERGE_HEAD"
- (vc-git-root
buffer-file-name))))
- (not (vc-git-conflicted-files (vc-git-root buffer-file-name))))
+ (unless (or
+ (not (eq vc-git-resolve-conflicts 'unstage-maybe))
+ ;; Doing a merge, so bug#20292 doesn't apply.
+ (file-exists-p (expand-file-name ".git/MERGE_HEAD"
+ (vc-git-root
buffer-file-name)))
+ (vc-git-conflicted-files (vc-git-root buffer-file-name)))
(vc-git-command nil 0 nil "reset"))
;; Remove the hook so that it is not called multiple times.
(remove-hook 'after-save-hook 'vc-git-resolve-when-done t))))