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 #<window 8 on *Org Agenda*>)
auto-compose-region(1 1695)
ps-mule-begin-job(1 1695)
ps-generate(#<buffer *temp*> 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 ... ...)) #<buffer
*Org Agenda*>)
eval((let nil (save-excursion (save-window-excursion ... ...))
#<buffer *Org Agenda*>))
org-let(nil (save-excursion (save-window-excursion
(org-agenda-mark-filtered-text) (let ... ... ...))) #<buffer *Org
Agenda*>)
org-write-agenda("~/test.ps" nil)
Thanks,
Mike
Mike Buksas -- mike.buk...@gmail.com -- www.buksas.net
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
