* lisp/emms-metaplaylist-mode.el: bug fix

Metalplaylist buffer focus would error without a current buffer.

1 files changed, 10 insertions, 9 deletions

diff --git a/lisp/emms-metaplaylist-mode.el b/lisp/emms-metaplaylist-mode.el
index 819cffb..f90312b 100644
--- a/lisp/emms-metaplaylist-mode.el
+++ b/lisp/emms-metaplaylist-mode.el
@@ -136,15 +136,16 @@
 (defun emms-metaplaylist-mode-center-current ()
   "Center on the current playlist buffer"
   (interactive)
-  (when (not emms-playlist-buffer)
-    (error "no current playlist buffer"))
-  (goto-char (point-min))
-  (when (not
-	 (search-forward-regexp (regexp-quote
-				 (buffer-name emms-playlist-buffer))
-				(point-max) t))
-    (error "cannot not find the current playlist buffer"))
-  (goto-char (point-at-bol)))
+  (when (buffer-name emms-playlist-buffer)
+    (let ((p nil))
+      (save-excursion
+	(goto-char (point-min))
+	(setq p (search-forward-regexp (regexp-quote
+					(buffer-name emms-playlist-buffer))
+				       (point-max) t)))
+      (when (not p) (error "cannot not find the current playlist buffer"))
+      (goto-char p)
+      (goto-char (point-at-bol)))))
 
 (defun emms-metaplaylist-mode-create ()
   "Create the meta-playlist buffer."