# HG changeset patch # User Stefan Monnier # Date 1192476385 0 # Node ID 14749907af368e4c18264c014db0d07da6383bfd # Parent 9d7381bfe93b3ae6b988deb4f47d587384f3d39f (vc-workfile-version): Compatibility alias. (vc-default-working-revision): Compatibility for backends. diff -r 9d7381bfe93b -r 14749907af36 lisp/ChangeLog --- a/lisp/ChangeLog Mon Oct 15 17:24:36 2007 +0000 +++ b/lisp/ChangeLog Mon Oct 15 19:26:25 2007 +0000 @@ -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 -r 9d7381bfe93b -r 14749907af36 lisp/vc-hooks.el --- a/lisp/vc-hooks.el Mon Oct 15 17:24:36 2007 +0000 +++ b/lisp/vc-hooks.el Mon Oct 15 19:26:25 2007 +0000 @@ -556,6 +556,13 @@ (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."