Mercurial > emacs
changeset 85319:14749907af36
(vc-workfile-version): Compatibility alias.
(vc-default-working-revision): Compatibility for backends.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 15 Oct 2007 19:26:25 +0000 |
| parents | 9d7381bfe93b |
| children | 3ba42b3f9a45 |
| files | lisp/ChangeLog lisp/vc-hooks.el |
| diffstat | 2 files changed, 14 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 <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>
--- 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."