diff options
| -rw-r--r-- | lisp/km-magit.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/km-magit.el b/lisp/km-magit.el index 7162e8e..eb5ff92 100644 --- a/lisp/km-magit.el +++ b/lisp/km-magit.el @@ -222,7 +222,7 @@ exist." "branch" (if choose-name (magit-read-string-ns "Backup name" current) - (let* ((version-re (format "\\`b/%s__v\\([[:digit:]]+\\)\\'" current)) + (let* ((version-re (format "\\`%s__v\\([[:digit:]]+\\)\\'" current)) (versions (delq nil (mapcar (lambda (s) @@ -230,7 +230,7 @@ exist." (string-to-number (match-string-no-properties 1 s)))) (magit-list-local-branch-names))))) - (format "b/%s__v%d" + (format "%s__v%d" current (if (null versions) 1 (1+ (apply #'max versions))))))))) |