aboutsummaryrefslogtreecommitdiff
path: root/lisp/emms-streams.el
diff options
context:
space:
mode:
authorWilliam Xu <william.xwl@gmail.com>2009-11-23 22:11:19 +0800
committerWilliam Xu <william.xwl@gmail.com>2009-11-23 22:11:19 +0800
commite54c755ce0c2ef19bfcd4cdca995e4d2bc3b2703 (patch)
tree2d5262b40213039f05a8af123148ca0a41fbc6c5 /lisp/emms-streams.el
parent2b629e9c2d97a521a4cddbf03286661eab687c42 (diff)
Fix compiler warnings.
For emms-browser.el, emms-compat.el, emms-last-play.el, emms-lyrics.el and emms-streams.el.
Diffstat (limited to 'lisp/emms-streams.el')
-rw-r--r--lisp/emms-streams.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emms-streams.el b/lisp/emms-streams.el
index b81abe7..ea51acf 100644
--- a/lisp/emms-streams.el
+++ b/lisp/emms-streams.el
@@ -447,7 +447,8 @@ Don't forget to run `emms-stream-save-bookmarks-file' after !"
(setq emms-stream-list (emms-stream-insert-at index (list name url fd type)
emms-stream-list))
(emms-stream-redisplay)
- (goto-line line)))
+ (goto-char (point-min))
+ (forward-line (1- line))))
(defun emms-stream-delete-bookmark ()
"Deletes the bookmark under the point.
@@ -458,7 +459,8 @@ Don't forget to save your modifications !"
(setq emms-stream-list
(delete (emms-stream-get-bookmark-at-point) emms-stream-list))
(emms-stream-redisplay)
- (goto-line line)))
+ (goto-char (point-min))
+ (forward-line (1- line))))
(defun emms-stream-edit-bookmark ()
"Change the information of current bookmark."
@@ -558,7 +560,8 @@ Don't forget to save your modifications !"
index streams emms-stream-list))
(setq line (+ line (* (length streams) 2)))
(emms-stream-redisplay)
- (goto-line line))
+ (goto-char (point-min))
+ (forward-line (1- line)))
(message "Not yanking anything"))))
;; Navigation