Skip to content

GitLab

Commit 727bdea1 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

(vc-hg-workfile-unchanged-p): New function.

parent ad546929
Hide whitespace changes
Inline Side-by-side
Showing with 9 additions and 1 deletion
lisp/ChangeLog
View file @ 727bdea1
2007-07-20 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-workfile-unchanged-p): New function.
2007-07-19 Dan Nicolaescu <dann@ics.uci.edu>
 
* vc-hg.el (vc-hg-registered): Replace if with when.
lisp/vc-hg.el
View file @ 727bdea1
......@@ -45,7 +45,7 @@
;; * workfile-version (file) OK
;; - latest-on-branch-p (file) ??
;; * checkout-model (file) OK
;; - workfile-unchanged-p (file) ??
;; - workfile-unchanged-p (file) OK
;; - mode-line-string (file) NOT NEEDED
;; - dired-state-info (file) OK
;; STATE-CHANGING FUNCTIONS
......@@ -392,6 +392,10 @@ REV is the revision to check out into WORKFILE."
(defun vc-hg-checkout-model (file)
'implicit)
;; Modelled after the similar function in vc-bzr.el
(defun vc-hg-workfile-unchanged-p (file)
(eq 'up-to-date (vc-hg-state file)))
(defun vc-hg-dired-state-info (file)
"Hg-specific version of `vc-dired-state-info'."
(let ((hg-state (vc-state file)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment