emms-volume.el: Cosmetic stuff, defvar -> defcustom

darcs-hash:20060531003343-2189f-8a3926a21e63a49ddf66415e9f17041485dcd721.gz

1 files 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."