aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDamien Elmes <emms@repose.cx>2006-08-22 10:05:00 +0000
committerDamien Elmes <emms@repose.cx>2006-08-22 10:05:00 +0000
commit789b5f8eb5577e680f10d8c46fe51abf2ea1385d (patch)
tree1a3305a7b25e0683c47ae8d48a5bb87a5b3010b7
parent3b214b84cf3c84fa4147bcb0adca9c4f0d3dbb9e (diff)
browser: few compat fixes for emacs21
darcs-hash:20060822100508-4e3e3-a39abae41dd60465fd9e52c1c3214cb1e20f0a1b.gz
-rw-r--r--emms-browser.el12
1 files changed, 11 insertions, 1 deletions
diff --git a/emms-browser.el b/emms-browser.el
index 938a181..52a0eed 100644
--- a/emms-browser.el
+++ b/emms-browser.el
@@ -832,7 +832,7 @@ This will be a list of DB items."
(interactive)
(let* ((data (emms-browser-data-at-point)))
(save-excursion
- (next-line)
+ (next-line 1)
(beginning-of-line)
(dolist (data-item data)
(emms-browser-insert-data-item data-item)))))
@@ -1713,5 +1713,15 @@ If the track is not of TYPE, return t."
(emms-track-get track 'last-played nil))
(time-less-p min-date last-played))))))
+;; --------------------------------------------------
+;; Compatability functions
+;; --------------------------------------------------
+
+(unless (fboundp 'with-selected-window)
+ (defalias 'with-selected-window 'save-selected-window))
+
+(unless (fboundp 'run-mode-hooks)
+ (defalias 'run-mode-hooks 'run-hooks))
+
(provide 'emms-browser)
;;; emms-browser.el ends here