From 7fa947af86bdc65dd521c2e3e1444bc7e37cce32 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 9 Dec 2018 15:06:04 -0500
Subject: km/magit-branch-backup-current: Quote branch name within regexp

---
 lisp/km-magit.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index e7d80fe..45b2860 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -186,7 +186,8 @@ exist."
      "branch"
      (if choose-name
          (magit-read-string-ns "Backup name" current)
-       (let* ((version-re (format "\\`%s__v\\([[:digit:]]+\\)\\'" current))
+       (let* ((version-re (format "\\`%s__v\\([[:digit:]]+\\)\\'"
+                                  (regexp-quote current)))
               (versions (delq nil
                               (mapcar
                                (lambda (s)
-- 
cgit v1.2.3