(vc-workfile-version): Compatibility alias.

(vc-default-working-revision): Compatibility for backends.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e4b5fc84b942fe0f48fde83d4ec4c6b85959915a..96d6a627dcdf6bfc5b6ae4af5da9414c00f47f6a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * vc-hooks.el (vc-workfile-version): Compatibility alias.
+       (vc-default-working-revision): Compatibility for backends.
+
 2007-10-15  Juanma Barranquero  <lekktu@gmail.com>
 
        * filesets.el (filesets-alist-get): Use `let' rather than `let*'.
@@ -198,9 +203,8 @@
        and some leftover logic regarding dedicated frames.  If showing
        concise startup screen, fit window to buffer.
        (command-line-1): If we will be using the splash screen, use
-       find-file instead of find-file-other-window to find additional
-       files.  Comment out unused code for coping with the old sit-for
-       behavior.
+       find-file instead of find-file-other-window to find additional files.
+       Comment out unused code for coping with the old sit-for behavior.
 
 2007-10-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 92c6c7344836c2d80ac861046852c1e111940b4b..e28a01d35e6f4a07e392b88fd4f77db16be3df8e 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -556,6 +556,13 @@ If FILE is not registered, this function always returns nil."
       (if (vc-backend file)
           (vc-file-setprop file 'vc-working-revision
                            (vc-call working-revision file)))))
+;; Backward compatibility.
+(define-obsolete-function-alias
+  'vc-workfile-version 'vc-working-revision "23.1")
+(defun vc-default-working-revision (backend file)
+  (message
+   "`working-revision' not found: using the old `workfile-version' instead")
+  (vc-call-backend backend 'workfile-version file))
 
 (defun vc-default-registered (backend file)
   "Check if FILE is registered in BACKEND using vc-BACKEND-master-templates."