diff options
| -rw-r--r-- | etc/NEWS | 6 | ||||
| -rw-r--r-- | lisp/vc/vc-hg.el | 4 |
2 files changed, 7 insertions, 3 deletions
| @@ -339,6 +339,12 @@ When no files are marked, all modified files are stashed, as before. | |||
| 339 | 339 | ||
| 340 | *** The new hook 'vc-retrieve-tag-hook' runs after retrieving a tag. | 340 | *** The new hook 'vc-retrieve-tag-hook' runs after retrieving a tag. |
| 341 | 341 | ||
| 342 | --- `vc-hg' now invokes `smerge-mode' correctly when visiting files. | ||
| 343 | Code that attempted to invoke `smerge-mode' when visiting an Hg file | ||
| 344 | with conflicts existed in earlier versions of Emacs, but incorrectly | ||
| 345 | never detected a conflict due to invalid assumptions about cached | ||
| 346 | values. | ||
| 347 | |||
| 342 | ** diff-mode | 348 | ** diff-mode |
| 343 | *** Hunks are now automatically refined by default. | 349 | *** Hunks are now automatically refined by default. |
| 344 | To disable it, set the new defcustom 'diff-font-lock-refine' to nil. | 350 | To disable it, set the new defcustom 'diff-font-lock-refine' to nil. |
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index 36965735959..d528813bc08 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el | |||
| @@ -1142,11 +1142,9 @@ REV is the revision to check out into WORKFILE." | |||
| 1142 | 1142 | ||
| 1143 | (defun vc-hg-find-file-hook () | 1143 | (defun vc-hg-find-file-hook () |
| 1144 | (when (and buffer-file-name | 1144 | (when (and buffer-file-name |
| 1145 | (file-exists-p (concat buffer-file-name ".orig")) | ||
| 1146 | ;; Hg does not seem to have a "conflict" status, eg | 1145 | ;; Hg does not seem to have a "conflict" status, eg |
| 1147 | ;; hg http://bz.selenic.com/show_bug.cgi?id=2724 | 1146 | ;; hg http://bz.selenic.com/show_bug.cgi?id=2724 |
| 1148 | (memq (vc-file-getprop buffer-file-name 'vc-state) | 1147 | (memq (vc-state buffer-file-name) '(edited conflict)) |
| 1149 | '(edited conflict)) | ||
| 1150 | ;; Maybe go on to check that "hg resolve -l" says "U"? | 1148 | ;; Maybe go on to check that "hg resolve -l" says "U"? |
| 1151 | ;; If "hg resolve -l" says there's a conflict but there are no | 1149 | ;; If "hg resolve -l" says there's a conflict but there are no |
| 1152 | ;; conflict markers, it's not clear what we should do. | 1150 | ;; conflict markers, it's not clear what we should do. |