Re: [bongo-devel] Emacs 21

[Romain Francoise]

Here's an additional patch to fix byte-compilation under Emacs 21:
(`whitespace' was added in Emacs 22 as an alias to `space').

--- old-Bongo/bongo.el  2006-12-31 17:43:24.000000000 +0100
+++ new-Bongo/bongo.el  2006-12-31 17:43:24.000000000 +0100
@@ -4375,11 +4375,11 @@ These will come at the end or right befo
              ((looking-at (eval-when-compile
                             (rx (and line-start
                                      "status change:"
-                                     (zero-or-more (or whitespace "("))
+                                     (zero-or-more (or space "("))
                                      "play state:"
-                                     (zero-or-more whitespace)
+                                     (zero-or-more space)
                                      (submatch (one-or-more digit))
-                                     (zero-or-more (or whitespace ")"))
+                                     (zero-or-more (or space ")"))
                                      line-end))))
               (case (string-to-number (match-string 1))
                 (1 (bongo-player-put player 'paused nil)
@@ -4392,14 +4392,14 @@ These will come at the end or right befo
                             (rx (and line-start
                                      (optional
                                       (and "[" (zero-or-more digit) "]"))
-                                     (zero-or-more whitespace)
+                                     (zero-or-more space)
                                      "main playlist: nothing to play"
                                      line-end))))
               (process-send-string process "quit\n"))
              ((looking-at (eval-when-compile
                             (rx (and line-start
                                      (submatch (one-or-more digit))
-                                     (zero-or-more whitespace)
+                                     (zero-or-more space)
                                      line-end))))
               (when (bongo-player-get player 'pending-queries)
                 (let ((value (string-to-number (match-string 1))))

-- 
Romain Francoise <address@hidden> | The sea! the sea! the open
it's a miracle -- http://orebokech.com/ | sea! The blue, the fresh, the
                                        | ever free! --Bryan W. Procter