diff options
| author | Eric S. Raymond <esr@thyrsus.com> | 2014-12-01 08:24:27 -0500 |
|---|---|---|
| committer | Eric S. Raymond <esr@thyrsus.com> | 2014-12-01 08:24:27 -0500 |
| commit | f82f3f1f177c1a9cc2c2236f51acd1be1809ae1f (patch) | |
| tree | 76163b25a84c8416f7f529b9331778020cb7dc8b /lisp/vc/vc-rcs.el | |
| parent | 2532d74a5fb5168955aa900f597bf7efc14efb12 (diff) | |
| download | emacs-f82f3f1f177c1a9cc2c2236f51acd1be1809ae1f.tar.gz emacs-f82f3f1f177c1a9cc2c2236f51acd1be1809ae1f.tar.bz2 emacs-f82f3f1f177c1a9cc2c2236f51acd1be1809ae1f.zip | |
API simplification: remove vc-workfile-unchanged-p from pubic methods.
* vc/vc.el, vc-hooks.el, and all backends: API simplification;
vc-workfile-unchanged-p is no longer a public method (but the RCS and
SCCS back ends retain it as a private method used in state
computation). This method was redundant with vc-state and usually
implemented as a trivial call to same. Fixes the failure mode
described in bug#694.
Diffstat (limited to 'lisp/vc/vc-rcs.el')
| -rw-r--r-- | lisp/vc/vc-rcs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc/vc-rcs.el b/lisp/vc/vc-rcs.el index 572a83e7a38..3028d7e7b87 100644 --- a/lisp/vc/vc-rcs.el +++ b/lisp/vc/vc-rcs.el @@ -149,7 +149,7 @@ For a description of possible values, see `vc-check-master-templates'." 'vc-working-revision)))) (if (not (eq state 'up-to-date)) state - (if (vc-workfile-unchanged-p file) + (if (vc-rcs-workfile-unchanged-p file) 'up-to-date (if (eq (vc-rcs-checkout-model (list file)) 'locking) 'unlocked-changes @@ -248,7 +248,7 @@ When VERSION is given, perform check for that version." (vc-rcs-find-most-recent-rev (vc-branch-part version)))))) (defun vc-rcs-workfile-unchanged-p (file) - "RCS-specific implementation of `vc-workfile-unchanged-p'." + "Has FILE remained unchanged since last checkout?" ;; Try to use rcsdiff --brief. If rcsdiff does not understand that, ;; do a double take and remember the fact for the future (let* ((version (concat "-r" (vc-working-revision file))) |