# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# 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  <dann@ics.uci.edu>
 
+	* 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  <lekktu@gmail.com>
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"