procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove extra process call from vc-git-find-file-hook

Browse source 
* lisp/vc/vc-git.el (vc-git-find-file-hook): Resolve FIXMEs.
This commit is contained in:
Dmitry Gutov 2018-06-28 03:14:56 +03:00
parent 7ea0873b4f
commit 93c41ce6aa
1 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/vc/vc-git.el
View file

@ -974,16 +974,10 @@ This prompts for a branch to merge from."
(defun vc-git-find-file-hook ()
"Activate `smerge-mode' if there is a conflict."
(when (and buffer-file-name
;; FIXME:
;; 1) the net result is to call git twice per file.
;; 2) v-g-c-f is documented to take a directory.
;; https://lists.gnu.org/r/emacs-devel/2014-01/msg01126.html
;; FIXME: vc-git-state can return `conflict' now.
(vc-git-conflicted-files buffer-file-name)
(eq (vc-state buffer-file-name 'Git) 'conflict)
(save-excursion
(goto-char (point-min))
(re-search-forward "^<<<<<<< " nil 'noerror)))
(vc-file-setprop buffer-file-name 'vc-state 'conflict)
(smerge-start-session)
(when vc-git-resolve-conflicts
(add-hook 'after-save-hook 'vc-git-resolve-when-done nil 'local))