[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-patches] Add `bongo-backend-push'
From: |
Daniel Brockman |
Subject: |
[bongo-patches] Add `bongo-backend-push' |
Date: |
Wed, 21 Feb 2007 07:24:14 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.92 (gnu/linux) |
2007-02-21 Daniel Brockman <address@hidden>
Add `bongo-backend-push'.
diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el 2007-02-21 07:23:39.000000000 +0100
+++ new-bongo/bongo.el 2007-02-21 07:23:39.000000000 +0100
@@ -3716,7 +3716,16 @@
(defun bongo-backend-put (backend property value)
"Set BACKEND's PROPERTY to VALUE."
- (bongo-alist-put (cdr (bongo-backend backend)) property value))
+ (setcdr (bongo-backend backend)
+ (bongo-alist-put (cdr (bongo-backend backend))
+ property value)))
+(put 'bongo-backend-put 'lisp-indent-function 2)
+
+(defun bongo-backend-push (backend property element)
+ "Push ELEMENT to the list stored in BACKEND's PROPERTY."
+ (bongo-backend-put backend property
+ (cons element (bongo-backend-get backend property))))
+(put 'bongo-backend-push 'lisp-indent-function 2)
(defun bongo-backend-constructor (backend)
"Return BACKEND's constructor."
@@ -4231,7 +4240,7 @@
(put 'bongo-player-put 'lisp-indent-function 2)
(defun bongo-player-push (player property element)
- "Push ELEMENT to the head of PLAYER's PROPERTY."
+ "Push ELEMENT to the list stored in PLAYER's PROPERTY."
(bongo-player-put player property
(cons element (bongo-player-get player property))))
(put 'bongo-player-push 'lisp-indent-function 2)
--
Daniel Brockman <address@hidden>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bongo-patches] Add `bongo-backend-push',
Daniel Brockman <=