mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-17 09:36:26 +00:00
Code Releases Activity

Minor fix

Browse source
This commit is contained in:
Carsten Dominik 2009-08-03 07:51:01 +02:00
parent 6062cef1c6
commit f3345d280e
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/org-exp.el
View file

@ -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))