mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-27 18:32:52 +00:00
Minor fix
This commit is contained in:
parent
6062cef1c6
commit
f3345d280e
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue