Re: [Orgmode] [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.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten