[elpa] externals/emms 1a56772dee: * emms-playlist-mode.el: emms-playlist-mode-track-above/below-p

[ELPA Syncer]

branch: externals/emms
commit 1a56772dee80bf6a2f05e14adb5431355813fd89
Author: Yoni Rabkin <yrk@gnu.org>
Commit: Yoni Rabkin <yrk@gnu.org>

    * emms-playlist-mode.el: emms-playlist-mode-track-above/below-p
    
    Two new helper functions.
---
 emms-playlist-mode.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/emms-playlist-mode.el b/emms-playlist-mode.el
index 8282e348cb..71a9f5d746 100644
--- a/emms-playlist-mode.el
+++ b/emms-playlist-mode.el
@@ -412,6 +412,16 @@ With a prefix arg, open the `dired' buffer in 
OTHER-WINDOW."
    (yank-pop nil)
    (emms-playlist-mode-correct-previous-yank)))
 
+;; Don't assume that the first track is at the top of the buffer (the
+;; same goes for the `emms-playlist-mode-track-below-p'.)
+(defun emms-playlist-mode-track-above-p ()
+  "Return t if there is a track above this one in the buffer."
+  (previous-property-change (line-beginning-position)))
+
+(defun emms-playlist-mode-track-below-p ()
+  "Return t if there is a track below this one in the buffer."
+  (next-property-change (line-end-position)))
+
 
 ;;; --------------------------------------------------------
 ;;; Overlay