[bongo-patches] Don't use `case' inside `interactive'

[Daniel Jensen]

I think this is strange. Can you reproduce the bug? Apparently, `case'
is not macroexpanded inside `interactive' in `bongo-insert-file' during
byte-compilation. I get an error later when I press `i' in a buffer.

Anyway, here's a patch.

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-19 18:47:56.000000000 +0200
@@ -7766,9 +7766,9 @@
   (interactive
    (list (let ((file-string
                 (read-file-name
-                 (case bongo-insert-whole-directory-trees
-                   ((nil ask) "Insert file or directory: ")
-                   (otherwise "Insert file or directory tree: "))
+                 (if (member bongo-insert-whole-directory-trees '(nil ask))
+                     "Insert file or directory: "
+                   "Insert file or directory tree: ")
                  default-directory nil nil
                  (when (eq major-mode 'dired-mode)
                    (dired-get-filename t)))))