From f3345d280ea5292159b1df33f1d8a2a003b02d62 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 3 Aug 2009 07:51:01 +0200 Subject: [PATCH] Minor fix --- lisp/org-exp.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/org-exp.el b/lisp/org-exp.el index 85256db51..98de3cb79 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -2504,13 +2504,14 @@ directory." (or pub-dir (org-export-directory :org opt-plist))) (file-name-sans-extension - (file-name-nondirectory bfname)))) + (file-name-nondirectory bfname)) + ".org")) (filename (and filename (if (equal (file-truename filename) (file-truename bfname)) (concat (file-name-sans-extension filename) "-source." - (file-name-extension filename)) + (file-name-extension filename))))) filename))) (backup-inhibited t) (buffer (find-file-noselect filename))