summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-08-13 00:23:30 -0400
committerKyle Meyer <kyle@kyleam.com>2015-08-13 00:23:30 -0400
commit707b84012b480ee671aef3e920e77128d51f2bf1 (patch)
tree9661bfca2ab5d12a9c15a434326d0db1f38f46f4
parentd2949d71ab4c3eefbfd6c55e98b85cc4f7bf9a1b (diff)
downloadbog-707b84012b480ee671aef3e920e77128d51f2bf1.tar.gz
bog-file-ask-on-conflict: Use base name in prompt
-rw-r--r--bog.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/bog.el b/bog.el
index 05d0df0..6e22c1a 100644
--- a/bog.el
+++ b/bog.el
@@ -640,7 +640,7 @@ controls the default string for the prompt."
(setq new-file-name
(read-string
(format "File %s already exists. Name to use instead: "
- citekey-file)
+ (file-name-base citekey-file))
new-file-name nil nil '(new-file-name)))
(setq citekey-file (expand-file-name new-file-name dir))
(rename-file staged-file citekey-file))))