mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(vc-workfile-version): Compatibility alias.

Browse Source 
(vc-default-working-revision): Compatibility for backends.
This commit is contained in:
Stefan Monnier 2007-10-15 19:26:25 +00:00
parent 095aa9cdf0
commit 6e5d0e9e73
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ChangeLog
View File

@ -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>

7
lisp/vc-hooks.el
View File

@ -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."