>From 6bc0ba91667f84be9b7e334c517dad72f6eb277f Mon Sep 17 00:00:00 2001 From: Robert P. Goldman Date: Thu, 29 Jul 2010 18:11:21 -0500 Subject: [PATCH] Fixed macroexpansion bug for FLET in org-write-agenda --- lisp/org-agenda.el | 12 +++++++----- 1 files changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d62b193..b694ff3 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2486,14 +2486,16 @@ 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)) + ,(macroexpand + '(flet ((ps-get-buffer-name () "Agenda View")) + (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"))) + ,(macroexpand + '(flet ((ps-get-buffer-name () "Agenda View")) + (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