Use file-source.org format instead of file.org-source.

This was reported by Hsiu-Khuern Tang.
This commit is contained in:
Bastien Guerry 2009-08-03 02:28:34 +08:00
parent 567331e169
commit fa0ab63be6
2 changed files with 7 additions and 3 deletions

View File

@ -1,3 +1,8 @@
2009-08-02 Bastien Guerry <bzg@altern.org>
* org-exp.el (org-export-as-org): Use file-source.org format
instead of file.org-source.
2009-07-31 Bastien Guerry <bzg@altern.org>
* org.el (org-make-link-regexps): Don't exclude parentheses from

View File

@ -2498,12 +2498,11 @@ directory."
(or pub-dir
(org-export-directory :org opt-plist)))
(file-name-sans-extension
(file-name-nondirectory bfname))
".org"))
(file-name-nondirectory bfname))))
(filename (and filename
(if (equal (file-truename filename)
(file-truename bfname))
(concat filename "-source")
(concat filename "-source.org")
filename)))
(backup-inhibited t)
(buffer (find-file-noselect filename))