# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1178598401 0
# Node ID 51b85ee9ab0f0414f956920b5aa365a0be3ead8f
# Parent  ca9519bf570341cb3d1c08086601b4bd652448a3
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.

diff -r ca9519bf5703 -r 51b85ee9ab0f lisp/ChangeLog
--- 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.
 
diff -r ca9519bf5703 -r 51b85ee9ab0f lisp/vc.el
--- 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*"))