]> code.delx.au - gnu-emacs/blobdiff - lisp/vc-rcs.el
* lisp/international/mule-cmds.el (princ-list): Mark as obsolete.
[gnu-emacs] / lisp / vc-rcs.el
index e5b624db945f44c2bc1fecf8e7fe125049e913cb..91cae8ed970f07634ea31c0c4ea3e75ee8f94ed1 100644 (file)
@@ -1,7 +1,7 @@
 ;;; vc-rcs.el --- support for RCS version-control
 
 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
-;;   2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;;   2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
 ;;   Free Software Foundation, Inc.
 
 ;; Author:     FSF (see vc.el for full credits)
@@ -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"