From 7fa947af86bdc65dd521c2e3e1444bc7e37cce32 Mon Sep 17 00:00:00 2001 From: Kyle Meyer 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(-) 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