Andre Powell wrote: >I have some task that have/need more descriptive text, but I am not able to get the text to show up when I export the view. I have set the command : Org Agenda Add Entry Text Maxlines to display more than 0, but then the program hangs and I have to force it to quit.
I can confirm this for
Org-mode version 7.01trans (release_7.01h.88.gb8a0)
on
GNU Emacs 23.2.1 (i486-pc-linux-gnu, GTK+ Version 2.20.1) of
2010-08-06 on murphy, modified by Debian
Setting debug-on-quit to non-nil and quitting the hang gives this
backtrace:
Debugger entered--Lisp error: (quit)
(if org-agenda-add-entry-text-descriptive-links (progn (goto-char ...) (while
... ...)))
(when org-agenda-add-entry-text-descriptive-links (goto-char (point-min))
(while (org-activate-bracket-links ...) (add-text-properties ... ... ...)))
(progn (insert txt) (when org-agenda-add-entry-text-descriptive-links
(goto-char ...) (while ... ...)) (goto-char (point-min)) (while
(re-search-forward org-bracket-link-regexp ... t) (set-text-properties ... ...
nil)) (goto-char (point-min)) (while (re-search-forward drawer-re nil t)
(delete-region ... ...)) (unless (member ... keep) (goto-char ...) (while ...
...)) (goto-char (point-min)) (when org-agenda-entry-text-exclude-regexps (let
... ...)) (goto-char (point-max)) (skip-chars-backward " \n") (if (looking-at
"[ \n]+\\'") (replace-match "")) (goto-char (point-min)) (untabify
(point-min) (point-max)) (setq ind (org-get-indentation)) (while (not ...)
(unless ... ...) (beginning-of-line 2)) (goto-char (point-min)) (while (not
...) (unless ... ... ...) (beginning-of-line 2)) (run-hooks (quote
org-agenda-entry-text-cleanup-hook)) (goto-char (point-min)) (when indent
(while ... ...)) (goto-char (point-min)) (while (looking-at "[ ]*\n")
(replace-match "")) (goto-char (poi
nt-max)) (when (> ... n-lines) (org-goto-line ...) (backward-char 1)) (setq
txt (buffer-substring ... ...)))
(unwind-protect (progn (insert txt) (when
org-agenda-add-entry-text-descriptive-links ... ...) (goto-char ...) (while ...
...) (goto-char ...) (while ... ...) (unless ... ... ...) (goto-char ...) (when
org-agenda-entry-text-exclude-regexps ...) (goto-char ...) (skip-chars-backward
" \n") (if ... ...) (goto-char ...) (untabify ... ...) (setq ind ...) (while
... ... ...) (goto-char ...) (while ... ... ...) (run-hooks ...) (goto-char
...) (when indent ...) (goto-char ...) (while ... ...) (goto-char ...) (when
... ... ...) (setq txt ...)) (and (buffer-name temp-buffer) (kill-buffer
temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ...) (and ... ...)))
(with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
...) (and ... ...)))
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ...
...)))
(with-temp-buffer (insert txt) (when
org-agenda-add-entry-text-descriptive-links (goto-char ...) (while ... ...))
(goto-char (point-min)) (while (re-search-forward org-bracket-link-regexp ...
t) (set-text-properties ... ... nil)) (goto-char (point-min)) (while
(re-search-forward drawer-re nil t) (delete-region ... ...)) (unless (member
... keep) (goto-char ...) (while ... ...)) (goto-char (point-min)) (when
org-agenda-entry-text-exclude-regexps (let ... ...)) (goto-char (point-max))
(skip-chars-backward " \n") (if (looking-at "[ \n]+\\'")
(replace-match "")) (goto-char (point-min)) (untabify (point-min) (point-max))
(setq ind (org-get-indentation)) (while (not ...) (unless ... ...)
(beginning-of-line 2)) (goto-char (point-min)) (while (not ...) (unless ... ...
...) (beginning-of-line 2)) (run-hooks (quote
org-agenda-entry-text-cleanup-hook)) (goto-char (point-min)) (when indent
(while ... ...)) (goto-char (point-min)) (while (looking-at "[ ]*\n")
(replace-match "")) (got
o-char (point-max)) (when (> ... n-lines) (org-goto-line ...) (backward-char
1)) (setq txt (buffer-substring ... ...)))
(save-restriction (widen) (goto-char marker) (end-of-line 1) (setq txt
(buffer-substring ... ...) drawer-re org-drawer-regexp kwd-time-re (concat "^[
]*" org-keyword-time-regexp ".*\n?")) (with-temp-buffer (insert txt)
(when org-agenda-add-entry-text-descriptive-links ... ...) (goto-char ...)
(while ... ...) (goto-char ...) (while ... ...) (unless ... ... ...) (goto-char
...) (when org-agenda-entry-text-exclude-regexps ...) (goto-char ...)
(skip-chars-backward " \n") (if ... ...) (goto-char ...) (untabify ... ...)
(setq ind ...) (while ... ... ...) (goto-char ...) (while ... ... ...)
(run-hooks ...) (goto-char ...) (when indent ...) (goto-char ...) (while ...
...) (goto-char ...) (when ... ... ...) (setq txt ...)))
(save-excursion (save-restriction (widen) (goto-char marker) (end-of-line 1)
(setq txt ... drawer-re org-drawer-regexp kwd-time-re ...) (with-temp-buffer
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ...)))
(if (not (org-mode-p)) (setq txt "") (save-excursion (save-restriction ...
... ... ... ...)))
(save-current-buffer (set-buffer (marker-buffer marker)) (if (not ...) (setq
txt "") (save-excursion ...)))
(with-current-buffer (marker-buffer marker) (if (not ...) (setq txt "")
(save-excursion ...)))
(save-excursion (with-current-buffer (marker-buffer marker) (if ... ... ...)))
(let (txt drawer-re kwd-time-re ind) (save-excursion (with-current-buffer ...
...)) txt)
org-agenda-get-some-entry-text(#<marker at 1 in inbox.org> 3 " > ")
(setq txt (org-agenda-get-some-entry-text m
org-agenda-add-entry-text-maxlines " > "))
(if (not (setq m ...)) (beginning-of-line 2) (setq txt
(org-agenda-get-some-entry-text m org-agenda-add-entry-text-maxlines " > "))
(end-of-line 1) (if (string-match "\\S-" txt) (insert "\n" txt)))
(while (not (eobp)) (if (not ...) (beginning-of-line 2) (setq txt ...)
(end-of-line 1) (if ... ...)))
(let (m txt) (goto-char (point-min)) (while (not ...) (if ... ... ... ...
...)))
(progn (let (m txt) (goto-char ...) (while ... ...)))
(if (and (> org-agenda-add-entry-text-maxlines 0) (not ...)) (progn (let ...
... ...)))
(when (and (> org-agenda-add-entry-text-maxlines 0) (not ...)) (let (m txt)
(goto-char ...) (while ... ...)))
org-agenda-add-entry-text()
run-hooks(org-agenda-before-write-hook)
(progn (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 ...) (... ... t ... ...) (... ... ...) (t ...)))
(unwind-protect (progn (insert bs) (org-agenda-remove-marked-text ...) (while
... ...) (run-hooks ...) (cond ... ... ... ... ... ...)) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...
... ... ...) (and ... ...)))
(with-current-buffer temp-buffer (unwind-protect (progn ... ... ... ... ...)
(and ... ...)))
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ...
...)))
(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 ...) (... ... t ... ...) (... ... ...) (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("~/code/org-mode/test.pdf" nil)
call-interactively(org-write-agenda nil nil)
HTH,
-- David
--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... [email protected]
Email..... [email protected]
pgpX9QWQmzpJ6.pgp
Description: PGP signature
_______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. [email protected] http://lists.gnu.org/mailman/listinfo/emacs-orgmode
