emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/emms 4b97340 06/80: * emms-tag-editor.el: remove hard-c


From: Stefan Monnier
Subject: [elpa] externals/emms 4b97340 06/80: * emms-tag-editor.el: remove hard-coding of program name
Date: Wed, 17 Mar 2021 18:42:19 -0400 (EDT)

branch: externals/emms
commit 4b9734082657311ec783fcb3dad9c03e2d3d42b7
Author: Yoni Rabkin <yoni@rabkins.net>
Commit: Yoni Rabkin <yoni@rabkins.net>

    * emms-tag-editor.el: remove hard-coding of program name
---
 emms-tag-editor.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/emms-tag-editor.el b/emms-tag-editor.el
index ee9b2cb..16f8370 100644
--- a/emms-tag-editor.el
+++ b/emms-tag-editor.el
@@ -38,6 +38,11 @@
 (require 'emms-mark)
 (require 'format-spec)
 
+(defcustom emms-tag-editor-tag-ogg-program "vorbiscomment"
+  "*The name/path of the ogg editor program."
+  :type 'string
+  :group 'emms-tag-editor)
+
 (defvar emms-tag-editor-tags
   '((info-artist      . "a")
     (info-albumartist . "A")
@@ -175,7 +180,7 @@ See also `emms-tag-editor-tag-file' and 
`emms-tag-editor-tag-ogg'.")
                 (setq args (append (list "-t" (concat (upcase tag) "=" val)) 
args)))))
           '("artist" "composer" "performer" "title" "album" "tracknumber" 
"date" "genre" "note"))
     (when args
-      (apply #'call-process "vorbiscomment" nil
+      (apply #'call-process emms-tag-editor-tag-ogg-program nil
              (get-buffer-create emms-tag-editor-log-buffer)
              nil
              "-w"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]