diff options
| -rw-r--r-- | lisp/emms-metaplaylist-mode.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emms-metaplaylist-mode.el b/lisp/emms-metaplaylist-mode.el index e1ccda7..4f84a01 100644 --- a/lisp/emms-metaplaylist-mode.el +++ b/lisp/emms-metaplaylist-mode.el @@ -139,11 +139,11 @@ (when (not emms-playlist-buffer) (error "no current playlist buffer")) (goto-char (point-min)) - (when (not (search-forward-regexp - (or (buffer-name emms-playlist-buffer) - "") - (point-max) t)) - (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))) (defun emms-metaplaylist-mode-create () |