]> code.delx.au - gnu-emacs/commitdiff
Use `unless' to have one fewer `not'
authorDmitry Gutov <dgutov@yandex.ru>
Sat, 16 May 2015 14:11:33 +0000 (17:11 +0300)
committerDmitry Gutov <dgutov@yandex.ru>
Sat, 16 May 2015 14:12:36 +0000 (17:12 +0300)
* lisp/vc/vc-git.el (vc-git-resolve-when-done): Use `unless' to
have one fewer `not'.

lisp/vc/vc-git.el

index b08baba4e903d941f6e77b56aa2a0dabbac55322..059f34eb4466991430e524e1ceaae71c4271d8b3 100644 (file)
@@ -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))))