[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-patches] Minor fixes in `bongo-filter-plist' and `bongo-playlist-
From: |
Daniel Brockman |
Subject: |
[bongo-patches] Minor fixes in `bongo-filter-plist' and `bongo-playlist-mode' |
Date: |
Tue, 02 Jan 2007 10:21:50 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
(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>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bongo-patches] Minor fixes in `bongo-filter-plist' and `bongo-playlist-mode',
Daniel Brockman <=