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-sccs.el | |
| parent | 2532d74a5fb5168955aa900f597bf7efc14efb12 (diff) | |
| download | emacs-f82f3f1f177c1a9cc2c2236f51acd1be1809ae1f.tar.gz | |
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-sccs.el')
| -rw-r--r-- | lisp/vc/vc-sccs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc/vc-sccs.el b/lisp/vc/vc-sccs.el index 46e191ad399..8c9595a7461 100644 --- a/lisp/vc/vc-sccs.el +++ b/lisp/vc/vc-sccs.el @@ -124,7 +124,7 @@ For a description of possible values, see `vc-check-master-templates'." (working-revision (vc-working-revision file)) (locking-user (cdr (assoc working-revision locks)))) (if (not locking-user) - (if (vc-workfile-unchanged-p file) + (if (vc-sccs-workfile-unchanged-p file) 'up-to-date 'unlocked-changes) (if (string= locking-user (vc-user-login-name file)) @@ -197,7 +197,7 @@ Optional string REV is a revision." (write-region nil nil outfile nil 'silent))) (defun vc-sccs-workfile-unchanged-p (file) - "SCCS-specific implementation of `vc-workfile-unchanged-p'." + "Has FILE remained unchanged since last checkout?" (let ((tempfile (make-temp-file "vc-sccs"))) (unwind-protect (progn |