[bongo-patches] Have `bongo-quit' bury the top Bongo buffers rather than leaving them near the top of the buffer list

[Daniel Brockman]

Sun Dec 31 06:17:04 CET 2006  Daniel Brockman <address@hidden>

 * Have `bongo-quit' bury the top Bongo buffers rather than
   leaving them near the top of the buffer list.

   The old behavior was not only a kludge, but it did not
   work well with multiple frames.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2006-12-31 06:19:17.000000000 +0100
+++ new-bongo/bongo.el  2006-12-31 06:19:17.000000000 +0100
@@ -7600,19 +7600,18 @@
   "This is used by `bongo' and `bongo-quit'.")
 
 (defun bongo-quit ()
-  "Quit Bongo by selecting another buffer.
-In addition, delete all windows except one.
+  "Quit Bongo by deleting all windows and selecting a non-Bongo buffer.
 
-This function stores the current window configuration in
-`bongo-stored-window-configuration', which is used by \\[bongo]."
+This function stores the current window configuration in the variable
+`bongo-stored-window-configuration', which is consulted by `\\[bongo]'."
   (interactive)
   (setq bongo-stored-window-configuration
         (current-window-configuration))
   (delete-other-windows)
-  (let ((buffer (current-buffer)) (count 0))
-    (while (and (bongo-buffer-p buffer) (< count 10))
-      (setq buffer (other-buffer buffer) count (+ count 1)))
-    (switch-to-buffer buffer)))
+  (let ((first-buffer (current-buffer)))
+    (while (and (bongo-buffer-p)
+                (progn (bury-buffer)
+                       (not (eq first-buffer (current-buffer))))))))
 
 (defun bongo-switch-buffers (&optional other-window)
   "Switch from a Bongo playlist to a Bongo library, or vice versa.

-- 
Daniel Brockman <address@hidden>