From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [PATCH] Rename temporary buffer to remove dependency of `flet' macro Date: Wed, 18 Aug 2010 10:43:54 +0200 Message-ID: References: <87hbjdq7l6.wl%dmaus@ictsoc.de> <1281630669-6565-2-git-send-email-dmaus@ictsoc.de> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from [140.186.70.92] (port=36289 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Om9bP-0001Pm-Ov for emacs-orgmode@gnu.org; Thu, 19 Aug 2010 14:12:36 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Om9bO-00080Y-Mh for emacs-orgmode@gnu.org; Thu, 19 Aug 2010 14:12:35 -0400 Received: from mail-ey0-f169.google.com ([209.85.215.169]:39346) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Om9bO-0007vB-IK for emacs-orgmode@gnu.org; Thu, 19 Aug 2010 14:12:34 -0400 Received: by mail-ey0-f169.google.com with SMTP id 7so1609483eyg.0 for ; Thu, 19 Aug 2010 11:12:34 -0700 (PDT) In-Reply-To: <1281630669-6565-2-git-send-email-dmaus@ictsoc.de> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: David Maus Cc: emacs-orgmode@gnu.org Hi David, I trust that you will apply this patch once you are satisfied with it. Best wishes - Carsten On Aug 12, 2010, at 6:31 PM, David Maus wrote: > * org-agenda.el (org-write-agenda): Rename temporary buffer to remove > dependency of `flet' macro. > --- > lisp/org-agenda.el | 12 ++++++------ > 1 files changed, 6 insertions(+), 6 deletions(-) > > diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el > index 61b867b..f2592ad 100644 > --- a/lisp/org-agenda.el > +++ b/lisp/org-agenda.el > @@ -2454,12 +2454,14 @@ higher priority settings." > ((string-match "\\.html?\\'" file) (require 'htmlize)) > ((string-match "\\.ps\\'" file) (require 'ps-print))) > (org-let (if nosettings nil org-agenda-exporter-settings) > - `(save-excursion > + '(save-excursion > (save-window-excursion > (org-agenda-mark-filtered-text) > (let ((bs (copy-sequence (buffer-string))) beg) > (org-agenda-unmark-filtered-text) > (with-temp-buffer > + (rename-buffer "Agenda View" t) > + (set-buffer-modified-p nil) > (insert bs) > (org-agenda-remove-marked-text 'org-filtered) > (while (setq beg (text-property-any (point-min) (point-max) > @@ -2486,14 +2488,12 @@ higher priority settings." > (message "HTML written to %s" file)) > ((string-match "\\.ps\\'" file) > (require 'ps-print) > - ,(flet ((ps-get-buffer-name () "Agenda View")) > - (ps-print-buffer-with-faces file)) > + (ps-print-buffer-with-faces file) > (message "Postscript written to %s" file)) > ((string-match "\\.pdf\\'" file) > (require 'ps-print) > - ,(flet ((ps-get-buffer-name () "Agenda View")) > - (ps-print-buffer-with-faces > - (concat (file-name-sans-extension file) ".ps"))) > + (ps-print-buffer-with-faces > + (concat (file-name-sans-extension file) ".ps")) > (call-process "ps2pdf" nil nil nil > (expand-file-name > (concat (file-name-sans-extension file) ".ps")) > -- > 1.7.1 > > > _______________________________________________ > 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