ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
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> 2009-07-31 Bastien Guerry <bzg@altern.org>
* org.el (org-make-link-regexps): Don't exclude parentheses from * org.el (org-make-link-regexps): Don't exclude parentheses from

5
lisp/org-exp.el
View File

@ -2498,12 +2498,11 @@ 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 filename "-source") (concat filename "-source.org")
filename))) filename)))
(backup-inhibited t) (backup-inhibited t)
(buffer (find-file-noselect filename)) (buffer (find-file-noselect filename))