# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1109010923 0
# Node ID 3e86eb0e2e0b6c9353c78c0265c5ce3f8e28a02c
# Parent  a8f01b89d2cec26f35ad870ed752b6c752176595
(cvs-retrieve-revision): Fix thinko.

diff -r a8f01b89d2ce -r 3e86eb0e2e0b lisp/pcvs.el
--- a/lisp/pcvs.el	Mon Feb 21 13:44:11 2005 +0000
+++ b/lisp/pcvs.el	Mon Feb 21 18:35:23 2005 +0000
@@ -1,7 +1,7 @@
 ;;; pcvs.el --- a front-end to CVS
 
 ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
-;;   2000, 2002, 2003, 2004  Free Software Foundation, Inc.
+;;   2000, 2002, 2003, 2004, 2005  Free Software Foundation, Inc.
 
 ;; Author: (The PCL-CVS Trust) pcl-cvs@cyclic.com
 ;;	(Per Cederqvist) ceder@lysator.liu.se
@@ -1687,8 +1687,7 @@
 	  (message "Retrieving revision %s..." rev)
 	  ;; Discard stderr output to work around the CVS+SSH+libc
 	  ;; problem when stdout and stderr are the same.
-	  ;; FIXME: this doesn't seem to make any difference :-(
-	  (let ((res (apply 'call-process cvs-program nil '(t . nil) nil
+	  (let ((res (apply 'call-process cvs-program nil '(t nil) nil
 			    "-q" "update" "-p"
 			    ;; If `rev' is HEAD, don't pass it at all:
 			    ;; the default behavior is to get the head