From e54c755ce0c2ef19bfcd4cdca995e4d2bc3b2703 Mon Sep 17 00:00:00 2001 From: William Xu Date: Mon, 23 Nov 2009 22:11:19 +0800 Subject: Fix compiler warnings. For emms-browser.el, emms-compat.el, emms-last-play.el, emms-lyrics.el and emms-streams.el. --- lisp/emms-streams.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lisp/emms-streams.el') 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 -- cgit v1.2.3