From 212271359819ed0c3ea26fe85757527805424b1f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 28 Nov 2005 22:31:47 +0000 Subject: [PATCH] (log-edit-insert-cvs-rcstemplate): Ignore stderr. --- lisp/ChangeLog | 2 ++ lisp/log-edit.el | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ed546b62fa7..eff3ae8bae9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2005-11-28 Stefan Monnier + * log-edit.el (log-edit-insert-cvs-rcstemplate): Ignore stderr. + * emacs-lisp/elp.el (elp-not-profilable): Replace interactive-p with called-interactively-p. (elp-profilable-p): Rename from elp-not-profilable-p. diff --git a/lisp/log-edit.el b/lisp/log-edit.el index 8ee8e369926..4c66f7f280b 100644 --- a/lisp/log-edit.el +++ b/lisp/log-edit.el @@ -448,8 +448,10 @@ This contacts the repository to get the rcstemplate file and can thus take some time." (interactive) (when (or (interactive-p) (= (point-min) (point-max))) - (when (file-readable-p "CVS/Entries") - (call-process "cvs" nil t nil "checkout" "-p" "CVSROOT/rcstemplate")))) + (when (file-readable-p "CVS/Root") + ;; Ignore the stderr stuff, even if it's an error. + (call-process "cvs" nil '(t nil) nil + "checkout" "-p" "CVSROOT/rcstemplate")))) (defun log-edit-insert-filenames () "Insert the list of files that are to be committed." -- 2.39.5