[bongo-patches] Use `space' rather than `whitespace' in `rx' expressions, since the latter is not supported in Emacs 21 (patch by Romain Francoise)

[Daniel Brockman]

Romain Francoise <address@hidden> writes:

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

Thanks.

Mon Jan  1 01:41:55 CET 2007  Daniel Brockman <address@hidden>

 * Use `space' rather than `whitespace' in `rx' expressions,
   since the latter is not supported in Emacs 21 (patch by
   Romain Francoise).

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-01-01 01:44:28.000000000 +0100
+++ new-bongo/bongo.el  2007-01-01 01:44:28.000000000 +0100
@@ -4378,11 +4378,11 @@
              ((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)
@@ -4395,14 +4395,14 @@
                             (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))))

-- 
Daniel Brockman <address@hidden>