# HG changeset patch # User Dan Nicolaescu # Date 1262028002 28800 # Node ID 1b4df859a104371e571866f9a2d0c3260c200deb # Parent 8437678ea169b698e4fc414a7dcff7b72c03d7fa * vc-rcs.el (vc-rcs-register): Fix registering a specific version. diff -r 8437678ea169 -r 1b4df859a104 lisp/ChangeLog --- a/lisp/ChangeLog Mon Dec 28 10:34:51 2009 -0800 +++ b/lisp/ChangeLog Mon Dec 28 11:20:02 2009 -0800 @@ -1,5 +1,7 @@ 2009-12-28 Dan Nicolaescu + * vc-rcs.el (vc-rcs-register): Fix registering a specific version. + * vc-bzr.el (vc-bzr-log-view-mode): Fix short log regexp. 2009-12-28 Juanma Barranquero diff -r 8437678ea169 -r 1b4df859a104 lisp/vc-rcs.el --- a/lisp/vc-rcs.el Mon Dec 28 10:34:51 2009 -0800 +++ b/lisp/vc-rcs.el Mon Dec 28 11:20:02 2009 -0800 @@ -277,6 +277,8 @@ Automatically retrieve a read-only version of the file with keywords expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile." (let (subdir name) + ;; When REV is specified, we need to force using "-t-". + (when rev (unless comment (setq comment ""))) (dolist (file files) (and (not (file-exists-p (setq subdir (expand-file-name "RCS"