From 7b210fcd668bc5ba92a0e23f9f5e7b77c77de12f Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 1 Sep 2016 20:15:15 -0400 Subject: Ignore standard error stream when digesting output Avoid including warnings as targets. --- snakemake.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'snakemake.el') diff --git a/snakemake.el b/snakemake.el index f5d5dfb..5ac4762 100644 --- a/snakemake.el +++ b/snakemake.el @@ -206,7 +206,7 @@ with DIRECTORY and the Snakefile's modification time." (defun snakemake-insert-output (&rest args) "Call `snakemake-program' with ARGS and insert output." - (apply #'call-process snakemake-program nil t nil args)) + (apply #'call-process snakemake-program nil '(t nil) nil args)) (defun snakemake--split-rules (type) "Return rules of TYPE. @@ -242,7 +242,7 @@ The file list is determined by the output of (snakemake-with-cache directory ("target-files") (split-string (with-temp-buffer - (if (= 0 (call-process snakemake-file-target-program nil t)) + (if (= 0 (call-process snakemake-file-target-program nil '(t nil))) (buffer-string) (error "Error finding file targets"))))))) @@ -410,7 +410,7 @@ $ snakemake --{dag,rulegraph} -- RULES | display" (setq default-directory dir) (let ((inhibit-read-only t)) (erase-buffer) - (apply #'call-process snakemake-program nil t nil + (apply #'call-process snakemake-program nil '(t nil) nil (if rule-graph "--rulegraph" "--dag") rules)) (image-mode) @@ -460,7 +460,7 @@ $ snakemake -s --{dag,rulegraph} | display" (setq default-directory dir) (let ((inhibit-read-only t)) (erase-buffer) - (setq ret-val (call-process snakemake-program nil t nil + (setq ret-val (call-process snakemake-program nil '(t nil) nil (if rule-graph "--rulegraph" "--dag") "--snakefile" file))) (if (= 0 ret-val) -- cgit v1.2.3