changeset 106671:1b4df859a104

* vc-rcs.el (vc-rcs-register): Fix registering a specific version.
author Dan Nicolaescu <dann@ics.uci.edu>
date Mon, 28 Dec 2009 11:20:02 -0800
parents 8437678ea169
children 71b23891f0e7 d3ca1d918965
files lisp/ChangeLog lisp/vc-rcs.el
diffstat 2 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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>
--- 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"