From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Mon, 28 Dec 2009 19:20:02 +0000 (-0800)
Subject: * vc-rcs.el (vc-rcs-register): Fix registering a specific version.
X-Git-Tag: emacs-pretest-23.1.91~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac859983d70c71997a295239e2bc917130a6bd97;p=emacs.git

* vc-rcs.el (vc-rcs-register): Fix registering a specific version.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3e12317611..a454f132733 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el
index e5b624db945..2f03a00b451 100644
--- a/lisp/vc-rcs.el
+++ b/lisp/vc-rcs.el
@@ -277,6 +277,8 @@ to the RCS command.
 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"