summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2018-12-09 15:06:04 -0500
committerKyle Meyer <kyle@kyleam.com>2018-12-09 15:13:46 -0500
commit7fa947af86bdc65dd521c2e3e1444bc7e37cce32 (patch)
tree7c34002f06e5026647dacfbd5a18a4e41a567d31
parent256ab0b2d857bd04dfd3d4574ab3390a4f4439d3 (diff)
downloademacs.d-7fa947af86bdc65dd521c2e3e1444bc7e37cce32.tar.gz
km/magit-branch-backup-current: Quote branch name within regexp
-rw-r--r--lisp/km-magit.el3
1 files changed, 2 insertions, 1 deletions
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)