[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] [PATCH] make `org-export-as-org' respect the to-buffer 'string
From: |
Eric Schulte |
Subject: |
[Orgmode] [PATCH] make `org-export-as-org' respect the to-buffer 'string option |
Date: |
Thu, 08 Apr 2010 18:34:36 -0600 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) |
see below -- Eric
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 6d576dc..5a0b22b 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -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 ()
- [Orgmode] [PATCH] make `org-export-as-org' respect the to-buffer 'string option,
Eric Schulte <=