branch: externals/vc-hgcmd
commit e47e11bb265ed9893927b66ec319a896cf95c648
Author: muffinmad <andreyk....@gmail.com>
Commit: muffinmad <andreyk....@gmail.com>
don't pass relative file names to vc-state
---
vc-hgcmd.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/vc-hgcmd.el b/vc-hgcmd.el
index e6294bf..3d0d4d0 100644
--- a/vc-hgcmd.el
+++ b/vc-hgcmd.el
@@ -1,11 +1,11 @@
;;; vc-hgcmd.el --- VC mercurial backend that uses hg command server -*-
lexical-binding: t; -*-
-;; Copyright (C) 2018 Andrii Kolomoiets
+;; Copyright (C) 2018-2019 Andrii Kolomoiets
;; Author: Andrii Kolomoiets <andreyk....@gmail.com>
;; Keywords: vc
;; URL: https://github.com/muffinmad/emacs-vc-hgcmd
-;; Package-Version: 1.3.1
+;; Package-Version: 1.3.2
;; Package-Requires: ((emacs "25.1"))
;; This file is NOT part of GNU Emacs.
@@ -505,7 +505,7 @@ Insert 'Running command' and display buffer text if COMMAND"
(defun vc-hgcmd-working-revision (file)
"Working revision. Return repository working revision if FILE is committed."
- (if (and file (eq 'added (vc-state (vc-hgcmd--file-relative-name file))))
+ (if (and file (eq 'added (vc-state file)))
"0"
(or (vc-hgcmd-command "log" "-l" "1" "-f" "-T" "{rev}") "0")))
@@ -515,7 +515,7 @@ Insert 'Running command' and display buffer text if COMMAND"
(defun vc-hgcmd-mode-line-string (file)
"Return a string for `vc-mode-line' to put in the mode line for FILE."
- (let* ((state (vc-state (vc-hgcmd--file-relative-name file)))
+ (let* ((state (vc-state file))
(state-echo nil)
(face nil)
;; TODO allow to customize it.
