From mboxrd@z Thu Jan 1 00:00:00 1970 From: Mike Buksas Subject: Args out of range error when exporting agenda when maxlines > 0 Date: Thu, 30 Apr 2009 13:56:56 -0600 Message-ID: Reply-To: mike.buksas@gmail.com Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LzcNP-0006o1-JV for emacs-orgmode@gnu.org; Thu, 30 Apr 2009 15:56:59 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LzcNO-0006n1-OC for emacs-orgmode@gnu.org; Thu, 30 Apr 2009 15:56:59 -0400 Received: from [199.232.76.173] (port=43994 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LzcNO-0006mj-Fm for emacs-orgmode@gnu.org; Thu, 30 Apr 2009 15:56:58 -0400 Received: from yx-out-1718.google.com ([74.125.44.152]:44359) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1LzcNN-0005PC-J7 for emacs-orgmode@gnu.org; Thu, 30 Apr 2009 15:56:57 -0400 Received: by yx-out-1718.google.com with SMTP id 3so1221960yxi.66 for ; Thu, 30 Apr 2009 12:56:56 -0700 (PDT) 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 Hi all, I'm trying to export the daily/weekly agenda as a ps file with C-c C-w. I get an out-of-range error, when: - I've set org-agenda-add-entry-text-maxlines to be greater than zero (and org-agenda-add-entry-text is in the before-write hook). - If there's an agenda item with more text to add. HTML and text export are fine, and the entry text is included. From the backtrace I can see that the argument to auto-compose-region is too large. It looks like it would correct for the buffer with the extra entry text added. I'm using org 6.26d. Here's the backtrace: Debugger entered--Lisp error: (args-out-of-range 1571 1571) font-at(1571 #) auto-compose-region(1 1695) ps-mule-begin-job(1 1695) ps-generate(# 1 1695 ps-generate-postscript-with-faces) ps-spool-with-faces(1 1695 nil) ps-print-with-faces(1 1695 "~/test.ps") ps-print-buffer-with-faces("~/test.ps") (progn (fset (quote ps-get-buffer-name) (function* ...)) (ps-print-buffer-with-faces file)) (unwind-protect (progn (fset ... ...) (ps-print-buffer-with-faces file)) (if --cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...))) (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn ... ...) (if --cl-letf-bound-- ... ...))) (letf ((... ...)) (ps-print-buffer-with-faces file)) (letf* ((... ...)) (ps-print-buffer-with-faces file)) (flet ((ps-get-buffer-name nil "Agenda View")) (ps-print-buffer-with-faces file)) (cond ((string-match "\\.html?\\'" file) (set-buffer ...) (when ... ... ... ...) (write-file file) (kill-buffer ...) (message "HTML written to %s" file)) ((string-match "\\.ps\\'" file) (require ...) (flet ... ...) (message "Postscript written to %s" file)) ((string-match "\\.pdf\\'" file) (require ...) (flet ... ...) (call-process "ps2pdf" nil nil nil ... ...) (message "PDF written to %s" file)) ((string-match "\\.ics\\'" file) (let ... ...)) (t (let ... ... ... ... ... ... ...))) (save-current-buffer (set-buffer temp-buffer) (insert bs) (org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg ...) (delete-region beg ...)) (run-hooks (quote org-agenda-before-write-hook)) (cond (... ... ... ... ... ...) (... ... ... ...) (... ... ... ... ...) (... ...) (t ...))) (with-current-buffer temp-buffer (insert bs) (org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg ...) (delete-region beg ...)) (run-hooks (quote org-agenda-before-write-hook)) (cond (... ... ... ... ... ...) (... ... ... ...) (... ... ... ... ...) (... ...) (t ...))) (unwind-protect (with-current-buffer temp-buffer (insert bs) (org-agenda-remove-marked-text ...) (while ... ...) (run-hooks ...) (cond ... ... ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ... ... ...) (and ... ...))) (with-temp-buffer (insert bs) (org-agenda-remove-marked-text (quote org-filtered)) (while (setq beg ...) (delete-region beg ...)) (run-hooks (quote org-agenda-before-write-hook)) (cond (... ... ... ... ... ...) (... ... ... ...) (... ... ... ... ...) (... ...) (t ...))) (let ((bs ...) beg) (org-agenda-unmark-filtered-text) (with-temp-buffer (insert bs) (org-agenda-remove-marked-text ...) (while ... ...) (run-hooks ...) (cond ... ... ... ... ...))) (save-window-excursion (org-agenda-mark-filtered-text) (let (... beg) (org-agenda-unmark-filtered-text) (with-temp-buffer ... ... ... ... ...))) (save-excursion (save-window-excursion (org-agenda-mark-filtered-text) (let ... ... ...))) (let nil (save-excursion (save-window-excursion ... ...)) #) eval((let nil (save-excursion (save-window-excursion ... ...)) #)) org-let(nil (save-excursion (save-window-excursion (org-agenda-mark-filtered-text) (let ... ... ...))) #) org-write-agenda("~/test.ps" nil) Thanks, Mike Mike Buksas -- mike.buksas@gmail.com -- www.buksas.net