summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
Diffstat (limited to 'bog.el')
-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))))