aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorYoni Rabkin <yoni@rabkins.net>2017-12-29 11:31:48 -0500
committerYoni Rabkin <yoni@rabkins.net>2017-12-29 11:31:48 -0500
commit5650f6bbcd05e9759193342a3004af4de252765c (patch)
tree97e677a8472b66819b72265f0582ddc39c7f18d0 /lisp
parentf5b2da5876a66b9a7570001feba7dfc06668787b (diff)
* lisp/emms-metaplaylist-mode.el: bug fix
Stop center-on-current interpreting special regexp characters.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emms-metaplaylist-mode.el10
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 ()