From 6e5d0e9e73b77c46af982a7d5b4043b183f9c69f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 15 Oct 2007 19:26:25 +0000 Subject: [PATCH] (vc-workfile-version): Compatibility alias. (vc-default-working-revision): Compatibility for backends. --- lisp/ChangeLog | 10 +++++++--- lisp/vc-hooks.el | 7 +++++++ 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e4b5fc84b94..96d6a627dcd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-10-15 Stefan Monnier + + * vc-hooks.el (vc-workfile-version): Compatibility alias. + (vc-default-working-revision): Compatibility for backends. + 2007-10-15 Juanma Barranquero * 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 diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 92c6c734483..e28a01d35e6 100644 --- 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." -- 2.39.5