Mercurial > emacs
changeset 80875:51b85ee9ab0f
Ensure that update-changelog issues an error when used with
a backend that does not implement it.
(vc-update-changelog-rcs2log): Rename from vc-default-update-changelog.
Remove `backend' argument. Use expand-file-name.
(vc-cvs-update-changelog, vc-rcs-update-changelog): New aliases.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 08 May 2007 04:26:41 +0000 |
| parents | ca9519bf5703 |
| children | f46158b1c8bc |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 19 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue May 08 02:07:17 2007 +0000 +++ b/lisp/ChangeLog Tue May 08 04:26:41 2007 +0000 @@ -1,3 +1,14 @@ +2007-05-08 Stefan Monnier <monnier@iro.umontreal.ca> + + * vc.el: Ensure that update-changelog issues an error when used with + a backend that does not implement it. + (vc-update-changelog-rcs2log): Rename from vc-default-update-changelog. + Remove `backend' argument. Use expand-file-name. + (vc-cvs-update-changelog, vc-rcs-update-changelog): New aliases. + + * progmodes/python.el (python-end-of-block): Revert last change. + (python-end-of-statement): Make sure we move *forward*. + 2007-05-08 David Reitter <david.reitter@gmail.com> * progmodes/python.el (python-guess-indent): Check non-nullness @@ -13668,8 +13679,8 @@ 2006-01-29 Edward O'Connor <ted@oconnor.cx> - * emulation/viper.el (viper-major-mode-modifier-list): Add - insert-state and vi-state entries for erc-mode. + * emulation/viper.el (viper-major-mode-modifier-list): + Add insert-state and vi-state entries for erc-mode. (viper-go-away, viper-set-hooks): Add and remove viper-comint-mode-hook from erc-mode-hook as appropriate.
--- a/lisp/vc.el Tue May 08 02:07:17 2007 +0000 +++ b/lisp/vc.el Tue May 08 04:26:41 2007 +0000 @@ -2909,7 +2909,11 @@ (vc-call-backend (vc-responsible-backend default-directory) 'update-changelog args)) -(defun vc-default-update-changelog (backend files) +(defalias 'vc-cvs-update-changelog 'vc-update-changelog-rcs2log) +(defalias 'vc-rcs-update-changelog 'vc-update-changelog-rcs2log) +;; FIXME: This should probably be moved to vc-rcs.el and replaced in +;; vc-cvs.el by code using cvs2cl. +(defun vc-update-changelog-rcs2log (files) "Default implementation of update-changelog. Uses `rcs2log' which only works for RCS and CVS." ;; FIXME: We (c|sh)ould add support for cvs2cl @@ -2950,9 +2954,7 @@ (mapcar (lambda (f) (file-relative-name - (if (file-name-absolute-p f) - f - (concat odefault f)))) + (expand-file-name f odefault))) files))) "done" (pop-to-buffer (get-buffer-create "*vc*"))