From cff09f0bf5cc55233383a6a8409dd808cd2997f4 Mon Sep 17 00:00:00 2001
From: forcer <forcer>
Date: Wed, 31 May 2006 00:33:00 +0000
Subject: emms-volume.el: Cosmetic stuff, defvar -> defcustom

darcs-hash:20060531003343-2189f-8a3926a21e63a49ddf66415e9f17041485dcd721.gz
---
 emms-volume.el | 23 +++++++++++++++--------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/emms-volume.el b/emms-volume.el
index bfd2733..a4c2efd 100644
--- a/emms-volume.el
+++ b/emms-volume.el
@@ -43,20 +43,27 @@
 
 ;;; Code:
 
+
+(require 'emms)
+(require 'emms-playlist-mode)
+(require 'emms-volume-amixer)
+
 ;; General volume setting related code.
-(defvar emms-volume-raise-function 'emms-volume-amixer-raise
+(defcustom emms-volume-raise-function 'emms-volume-amixer-raise
   "*The function to use to raise the volume.
 If you have your own functions for changing volume, set this and
- `emms-volume-lower-function' accordingly.")
+ `emms-volume-lower-function' accordingly."
+  :type '(choice (const :tag "Amixer" emms-volume-amixer-raise)
+                 (function :tag "Lisp function"))
+  :group 'emms)
 
-(defvar emms-volume-lower-function 'emms-volume-amixer-lower
+(defcustom emms-volume-lower-function 'emms-volume-amixer-lower
   "*The function to use to lower the volume.
 If you have your own functions for changing volume, set this and
- `emms-volume-raise-function' accordingly.")
-
-(require 'emms)
-(require 'emms-playlist-mode)
-(require 'emms-volume-amixer)
+ `emms-volume-raise-function' accordingly."
+  :type '(choice (const :tag "Amixer" emms-volume-amixer-lower)
+                 (function :tag "Lisp function"))
+  :group 'emms)
 
 (defun emms-volume-raise ()
   "Raise the speaker volume."
-- 
cgit v1.2.3