Mercurial > emacs
changeset 81986:7179773d9d7f
(vc-hg-workfile-unchanged-p): New function.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 20 Jul 2007 03:15:19 +0000 |
| parents | a0277e80d191 |
| children | 8d88b0199c17 |
| files | lisp/ChangeLog lisp/vc-hg.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Jul 20 01:53:08 2007 +0000 +++ b/lisp/ChangeLog Fri Jul 20 03:15:19 2007 +0000 @@ -11,6 +11,7 @@ (vc-hg-checkout): Re-enable. (vc-hg-create-repo): Fix typos. (vc-hg-print-log): Fix for multiple files. + (vc-hg-workfile-unchanged-p): New function. * vc.el: Fix typo. (vc-print-log): Fix call to print-log.
--- a/lisp/vc-hg.el Fri Jul 20 01:53:08 2007 +0000 +++ b/lisp/vc-hg.el Fri Jul 20 03:15:19 2007 +0000 @@ -48,7 +48,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 @@ -407,6 +407,10 @@ (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)))