From: Nick Dokos <nicholas.dokos@hp.com>
To: mike.buksas@gmail.com
Cc: emacs-orgmode@gnu.org
Subject: Re: Args out of range error when exporting agenda when maxlines > 0
Date: Thu, 30 Apr 2009 16:32:14 -0400 [thread overview]
Message-ID: <9749.1241123534@alphaville.usa.hp.com> (raw)
In-Reply-To: Message from Mike Buksas <mike.buksas@gmail.com> of "Thu, 30 Apr 2009 13:56:56 MDT." <debcbf160904301256w6274f109v3d6565db1a157a71@mail.gmail.com>
Mike Buksas <mike.buksas@gmail.com> wrote:
> I'm trying to export the daily/weekly agenda as a ps file with C-c
> C-w.
That should be C-x 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.
>
I can't reproduce this (latest git org: 6.26trans, emacs 23.0.91).
Are you running emacs 22.something?
I suspect that the ps-foo implementation has changed sufficiently in
23.0.91, so that the backtrace would be different from the one you
are getting (e.g. ps-mule-begin-job does not call auto-compose-region
in 23.0.91, afaict).
> 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.
Why do you think it's too large? Afaict, it's (point-max), i.e. the
end of the buffer. My agenda e.g. has 2525 chars. So 1695 does not
seem too large.
HTH,
Nick
>
> 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)
next prev parent reply other threads:[~2009-04-30 20:34 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-04-30 19:56 Args out of range error when exporting agenda when maxlines > 0 Mike Buksas
2009-04-30 20:32 ` Nick Dokos [this message]
2009-04-30 21:15 ` Mike Buksas
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=9749.1241123534@alphaville.usa.hp.com \
--to=nicholas.dokos@hp.com \
--cc=emacs-orgmode@gnu.org \
--cc=mike.buksas@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).