diff options
author | William Xu <william.xwl@gmail.com> | 2009-11-23 22:11:19 +0800 |
---|---|---|
committer | William Xu <william.xwl@gmail.com> | 2009-11-23 22:11:19 +0800 |
commit | e54c755ce0c2ef19bfcd4cdca995e4d2bc3b2703 (patch) | |
tree | 2d5262b40213039f05a8af123148ca0a41fbc6c5 /lisp/emms-streams.el | |
parent | 2b629e9c2d97a521a4cddbf03286661eab687c42 (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.el | 9 |
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 |