[bongo-patches] Minor fixes in `bongo-filter-plist' and `bongo-playlist-mode'

[Daniel Brockman]

(The backqoute construct looks like the kind of thing that
bit us before in `bongo-start-*-player' and manifested as a
pause problem that wasn't solved in a long time.)

Tue Jan  2 10:09:45 CET 2007  Daniel Brockman <address@hidden>

 * Minor fixes in `bongo-filter-plist' and
   `bongo-playlist-mode'.

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-01-02 10:12:10.000000000 +0100
+++ new-bongo/bongo.el  2007-01-02 10:12:10.000000000 +0100
@@ -2666,10 +2666,10 @@
 (defun bongo-filter-plist (keys plist)
   "Return a new list of each property in PLIST whose name is in KEYS.
 Key comparisons are done with `eq'.  Order is *not* preserved."
-  (let (result)
+  (let ((result nil))
     (while plist
       (when (memq (car plist) keys)
-        (setq result `(,(car plist) ,(cadr plist) ,@result)))
+        (setq result (cons (car plist) (cons (cadr plist) result))))
       (setq plist (cddr plist)))
     result))
 
@@ -7460,7 +7460,7 @@
   (setq bongo-playing-track-marker (make-marker))
   (setq bongo-paused-track-marker (make-marker))
   (setq bongo-current-track-marker bongo-stopped-track-marker)
-  (when window-system
+  (when (and window-system (>= emacs-major-version 22))
     (catch 'abort
       (setq left-fringe-width
             (* 2 (or (bongo-face-width 'fringe)

-- 
Daniel Brockman <address@hidden>