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-hoo
 ks (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.... dmjena@jabber.org
Email..... dmaus@ictsoc.de