From mboxrd@z Thu Jan  1 00:00:00 1970
From: Carsten Dominik <carsten.dominik@gmail.com>
Subject: Re: [PATCH] make `org-export-as-org' respect the to-buffer 'string
 option
Date: Fri, 9 Apr 2010 13:31:30 +0200
Message-ID: <2FF9F81F-C85F-4A89-96E5-9EFE036AE58E@gmail.com>
References: <87eiipqx9f.fsf@gmail.com>
Mime-Version: 1.0 (Apple Message framework v936)
Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes
Content-Transfer-Encoding: 7bit
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1O0Cdu-0002EG-85
	for emacs-orgmode@gnu.org; Fri, 09 Apr 2010 07:44:58 -0400
Received: from [140.186.70.92] (port=56807 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1O0Cds-0002Dv-VY
	for emacs-orgmode@gnu.org; Fri, 09 Apr 2010 07:44:57 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69)
	(envelope-from <carsten.dominik@gmail.com>) id 1O0Cdr-0008IJ-DU
	for emacs-orgmode@gnu.org; Fri, 09 Apr 2010 07:44:56 -0400
Received: from pony.ic.uva.nl ([145.18.40.181]:32777)
	by eggs.gnu.org with esmtp (Exim 4.69)
	(envelope-from <carsten.dominik@gmail.com>) id 1O0Cdr-0008I3-62
	for emacs-orgmode@gnu.org; Fri, 09 Apr 2010 07:44:55 -0400
In-Reply-To: <87eiipqx9f.fsf@gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Eric Schulte <schulte.eric@gmail.com>
Cc: Org Mode <emacs-orgmode@gnu.org>

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