mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-27 18:32:52 +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 (or pub-dir
(org-export-directory :org opt-plist))) (org-export-directory :org opt-plist)))
(file-name-sans-extension (file-name-sans-extension
(file-name-nondirectory bfname)))) (file-name-nondirectory bfname))
".org"))
(filename (and filename (filename (and filename
(if (equal (file-truename filename) (if (equal (file-truename filename)
(file-truename bfname)) (file-truename bfname))
(concat (file-name-sans-extension filename) (concat (file-name-sans-extension filename)
"-source." "-source."
(file-name-extension filename)) (file-name-extension filename)))))
filename))) filename)))
(backup-inhibited t) (backup-inhibited t)
(buffer (find-file-noselect filename)) (buffer (find-file-noselect filename))