diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-03-19 22:17:56 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-03-19 22:17:56 -0400 |
| commit | 6ea76aa81fe1ba0014044c22f831bf802e3dd7a8 (patch) | |
| tree | b0964d6a1dd3f407eb24d67c8678cb9f48f639cd /lisp/km-magit.el | |
| parent | aef515233d7083a59f51c89df0b539bf047e0830 (diff) | |
| download | emacs.d-6ea76aa81fe1ba0014044c22f831bf802e3dd7a8.tar.gz | |
magit-branch-backup-current: Don't use "b/" prefix
Diffstat (limited to 'lisp/km-magit.el')
| -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))))))))) |