From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH] Rename temporary buffer to remove dependency of `flet' macro Date: Thu, 12 Aug 2010 18:31:09 +0200 Message-ID: <1281630669-6565-2-git-send-email-dmaus@ictsoc.de> References: <87hbjdq7l6.wl%dmaus@ictsoc.de> Return-path: Received: from [140.186.70.92] (port=60299 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OjahF-0006bE-JT for emacs-orgmode@gnu.org; Thu, 12 Aug 2010 12:32:02 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1Ojah0-00076g-S2 for emacs-orgmode@gnu.org; Thu, 12 Aug 2010 12:31:48 -0400 Received: from mysql1.xlhost.de ([213.202.242.106]:55927) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Ojah0-00076Z-Lo for emacs-orgmode@gnu.org; Thu, 12 Aug 2010 12:31:46 -0400 In-Reply-To: <87hbjdq7l6.wl%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: emacs-orgmode@gnu.org * 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