tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

`org-export-as-org' now exports a string when to-buffer equals 'string

This commit is contained in:
Eric Schulte 2010-04-09 09:08:52 -06:00
parent f94c1b6c30
commit ee5a81102d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-exp.el
View File

@ -2490,7 +2490,8 @@ directory."
filename)))
(backup-inhibited t)
(buffer (find-file-noselect filename))
(region (buffer-string)))
(region (buffer-string))
str-ret)
(save-excursion
(switch-to-buffer buffer)
(erase-buffer)
@ -2536,7 +2537,11 @@ directory."
(write-file (concat filename ".html")))
(kill-buffer newbuf)))
(set-buffer-modified-p nil)
(kill-buffer (current-buffer)))))
(if (equal to-buffer 'string)
(progn (setq str-ret (buffer-string))
(kill-buffer (current-buffer))
str-ret)
(kill-buffer (current-buffer))))))
(defvar org-archive-location) ;; gets loaded with the org-archive require.
(defun org-get-current-options ()