[PATCH] make `org-export-as-org' respect the to-buffer 'string option

[PATCH] make `org-export-as-org' respect the to-buffer 'string option

[Eric Schulte]

[-- Attachment #1: Type: text/plain, Size: 19 bytes --]

see below -- Eric


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: org-export-as-org-respects-to-buffer-string.patch --]
[-- Type: text/x-diff, Size: 895 bytes --]

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 ()

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: [PATCH] make `org-export-as-org' respect the to-buffer 'string option

[Carsten Dominik]

Again, please go ahead.

- Carsten

On Apr 9, 2010, at 2:34 AM, Eric Schulte wrote:

> 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 ()
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten