[bongo-patches] Add option `:program-name-variable none' in `define-bongo-backend'

[Daniel Jensen]

>From the code it looks like this was supposed to be possible, but
without this option it cannot be done.

(FYI, I'm going to use this in a new MPD backend. I'll post it soon.)

diff -Naur bongo-old/bongo.el bongo-new/bongo.el
--- bongo-old/bongo.el  2007-06-19 18:46:49.000000000 +0200
+++ bongo-new/bongo.el  2007-06-20 18:48:31.000000000 +0200
@@ -5640,8 +5640,9 @@
   (let* ((group-name
           (intern (format "bongo-%s" name)))
          (program-name-variable
-          (or (eval (plist-get options :program-name-variable))
-              (intern (format "bongo-%s-program-name" name))))
+          (let ((name (or (eval (plist-get options :program-name-variable))
+                          (intern (format "bongo-%s-program-name" name)))))
+            (and (not (eq name 'none)) name)))
          (extra-program-arguments-variable
           (or (eval (plist-get options :extra-program-arguments-variable))
               (intern (format "bongo-%s-extra-arguments" name))))
diff -Naur bongo-old/bongo.texinfo bongo-new/bongo.texinfo
--- bongo-old/bongo.texinfo     2007-06-19 18:46:49.000000000 +0200
+++ bongo-new/bongo.texinfo     2007-06-20 18:51:21.000000000 +0200
@@ -649,8 +649,9 @@
 is the symbol-name of @var{name}.
 
 @item :program-name-variable @var{variable}
-The variable specifying the backend executable.  The default defines a
-variable @address@hidden, bound to the value of
+The variable specifying the backend executable.  If @code{none}, no
+variable will be defined.  The default defines a variable
address@hidden@var{name}-program-name}, bound to the value of
 @var{program-name}.
 
 @item :program-arguments @var{list}