From 1cb8a1f346842a341eb3d336eb9d219bb215f2a3 Mon Sep 17 00:00:00 2001 From: Martin Schoenmakers Date: Thu, 1 Jun 2006 19:38:00 +0000 Subject: Put volume options in their own customize group. Added a separate emms-volume group for customize and put things there instead of in the main thing. darcs-hash:20060601193853-97144-c623003be58dbfc8b5bec359110197e115926c1d.gz --- emms-volume-amixer.el | 2 +- emms-volume.el | 9 +++++++-- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/emms-volume-amixer.el b/emms-volume-amixer.el index 74856c6..692884f 100644 --- a/emms-volume-amixer.el +++ b/emms-volume-amixer.el @@ -43,7 +43,7 @@ :type '(choice (const :tag "Master" "Master") (const :tag "PCM" "PCM") (string :tag "Something else: ")) - :group 'emms) + :group 'emms-volume) (defun emms-volume-amixer-sset-master (var) "Change amixer master volume by VAR." diff --git a/emms-volume.el b/emms-volume.el index a4c2efd..4f1b4eb 100644 --- a/emms-volume.el +++ b/emms-volume.el @@ -48,6 +48,11 @@ (require 'emms-playlist-mode) (require 'emms-volume-amixer) +;; Customize group +(defgroup emms-volume nil + "Volume setting for EMMS." + :group 'emms) + ;; General volume setting related code. (defcustom emms-volume-raise-function 'emms-volume-amixer-raise "*The function to use to raise the volume. @@ -55,7 +60,7 @@ If you have your own functions for changing volume, set this and `emms-volume-lower-function' accordingly." :type '(choice (const :tag "Amixer" emms-volume-amixer-raise) (function :tag "Lisp function")) - :group 'emms) + :group 'emms-volume) (defcustom emms-volume-lower-function 'emms-volume-amixer-lower "*The function to use to lower the volume. @@ -63,7 +68,7 @@ If you have your own functions for changing volume, set this and `emms-volume-raise-function' accordingly." :type '(choice (const :tag "Amixer" emms-volume-amixer-lower) (function :tag "Lisp function")) - :group 'emms) + :group 'emms-volume) (defun emms-volume-raise () "Raise the speaker volume." -- cgit v1.2.3