From dae3211dbdeab1939c610a5138f0f08839bfe3fa Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 21 Feb 2005 18:36:11 +0000 Subject: [PATCH] (cvs-retrieve-revision): Fix thinko. --- lisp/ChangeLog | 6 +++++- lisp/pcvs.el | 5 ++--- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a41eadc355b..dd1bc36f284 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,8 @@ -2005-02-21 Stefan +2005-02-21 Wolfgang Jenkner (tiny change) + + * pcvs.el (cvs-retrieve-revision): Fix thinko. + +2005-02-21 Stefan Monnier * frame.el (blink-cursor-mode): Use define-minor-mode. diff --git a/lisp/pcvs.el b/lisp/pcvs.el index cd0cf0a2df1..2c0016dcc47 100644 --- 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 -- 2.39.2