[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-patches] Only use overlay arrows if `overlay-arrow-variable-list'
From: |
Daniel Brockman |
Subject: |
[bongo-patches] Only use overlay arrows if `overlay-arrow-variable-list' is bound |
Date: |
Fri, 29 Dec 2006 11:21:10 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
Wed Dec 27 16:39:25 CET 2006 Daniel Brockman <address@hidden>
* Only use overlay arrows if `overlay-arrow-variable-list'
is bound.
diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el 2006-12-29 11:21:02.000000000 +0100
+++ new-bongo/bongo.el 2006-12-29 11:21:02.000000000 +0100
@@ -7340,14 +7340,15 @@
(* 2 (aref (font-info (face-font 'fringe)) 2))))
(setq bongo-queued-track-marker (make-marker))
(setq bongo-queued-track-arrow-marker (make-marker))
- (add-to-list 'overlay-arrow-variable-list
- 'bongo-stopped-track-marker)
- (add-to-list 'overlay-arrow-variable-list
- 'bongo-playing-track-marker)
- (add-to-list 'overlay-arrow-variable-list
- 'bongo-paused-track-marker)
- (add-to-list 'overlay-arrow-variable-list
- 'bongo-queued-track-arrow-marker))
+ (when (boundp 'overlay-arrow-variable-list)
+ (add-to-list 'overlay-arrow-variable-list
+ 'bongo-stopped-track-marker)
+ (add-to-list 'overlay-arrow-variable-list
+ 'bongo-playing-track-marker)
+ (add-to-list 'overlay-arrow-variable-list
+ 'bongo-paused-track-marker)
+ (add-to-list 'overlay-arrow-variable-list
+ 'bongo-queued-track-arrow-marker)))
(defvar bongo-library-buffer nil
"The default Bongo library buffer, or nil.
--
Daniel Brockman <address@hidden>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bongo-patches] Only use overlay arrows if `overlay-arrow-variable-list' is bound,
Daniel Brockman <=