aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYe Wenbin <wenbinye@gmail.com>2007-03-08 14:12:00 +0000
committerYe Wenbin <wenbinye@gmail.com>2007-03-08 14:12:00 +0000
commitb2f7c64fac09ee7765043ade6a063859cd8406eb (patch)
tree7606667036756c0075a4cfe6e15fd6d5aeb5869f
parent03e4d2db0c506895a2d3b1a8a651e3536fddb86e (diff)
Record programs error in log buffer
darcs-hash:20070308141209-94065-e42c62f7816a62ada269de9ed57d14fa05289a6f.gz
-rw-r--r--emms-tag-editor.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index 3ba2489..62d0e88 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -134,7 +134,9 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.
(setq args (append (list "-t" (concat tag "=" val)) args)))))
'("artist" "title" "album" "tracknumber" "date" "genre" "note"))
(when args
- (apply #'call-process "vorbiscomment" nil nil nil
+ (apply #'call-process "vorbiscomment" nil
+ (get-buffer-create emms-tag-editor-log-buffer)
+ nil
"-w"
(append args (list (emms-track-name track)))))))
@@ -146,7 +148,7 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.
(setq args (append (list (concat "-" (cdr tag)) val) args))))
tags)
(apply 'call-process program
- nil nil nil
+ nil (get-buffer-create emms-tag-editor-log-buffer) nil
filename args)))
(defun emms-tag-editor-get-format (track)