[bongo-patches] Make `bongo-insert-special' not fail if user enters an empty string (thanks to Daniel Jensen)

[Daniel Brockman]

2007-04-04  Daniel Brockman  <address@hidden>

        Make `bongo-insert-special' not fail if user enters
        an empty string (thanks to Daniel Jensen).

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-04-04 18:18:52.000000000 +0200
+++ new-bongo/bongo.el  2007-04-04 18:18:52.000000000 +0200
@@ -6925,11 +6925,12 @@
   "Prompt for something to insert into the current Bongo buffer.
 See `bongo-insertion-command-alist'."
   (interactive)
-  (call-interactively
-   (cdr (assoc (let ((completion-ignore-case t))
-                 (completing-read "Insert: "
-                                  bongo-insertion-command-alist nil t))
-               bongo-insertion-command-alist))))
+  (let* ((completion-ignore-case t)
+         (type (completing-read "Type of thing to insert: "
+                                bongo-insertion-command-alist nil t))
+         (command (cdr (assoc type bongo-insertion-command-alist))))
+    (when command
+      (call-interactively command))))
 
 
 ;;;; Drag-and-drop support

-- 
Daniel Brockman <address@hidden>