Mercurial > emacs
changeset 67194:b4ad6ef2b752
(log-edit-insert-cvs-rcstemplate): Ignore stderr.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 28 Nov 2005 22:31:47 +0000 |
| parents | 738cfb5e451f |
| children | 0ece02371a71 |
| files | lisp/ChangeLog lisp/log-edit.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Nov 28 22:15:31 2005 +0000 +++ b/lisp/ChangeLog Mon Nov 28 22:31:47 2005 +0000 @@ -1,5 +1,7 @@ 2005-11-28 Stefan Monnier <monnier@iro.umontreal.ca> + * 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.
--- a/lisp/log-edit.el Mon Nov 28 22:15:31 2005 +0000 +++ b/lisp/log-edit.el Mon Nov 28 22:31:47 2005 +0000 @@ -448,8 +448,10 @@ 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."