(cvs-retrieve-revision): Fix thinko.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a41eadc355b9d0c9b57be68c85541d4d4ce434b0..dd1bc36f284aa7d1316a44b0b29128708da32f8e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,8 @@
-2005-02-21  Stefan  <monnier@iro.umontreal.ca>
+2005-02-21  Wolfgang Jenkner  <wjenkner@inode.at>  (tiny change)
+
+       * pcvs.el (cvs-retrieve-revision): Fix thinko.
+
+2005-02-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * frame.el (blink-cursor-mode): Use define-minor-mode.
 

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index cd0cf0a2df1ad786fa3b3da7776324b2f3ebd975..2c0016dcc4777cc6db347addd50c083fcd4e05a4 100644 (file)
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -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 @@ Signal an error if there is no backup file."
          (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