mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-07 15:22:06 +00:00
Code

Fix adding context lines in agenda

Browse Source 
* lisp/org-agenda.el (org-agenda-add-entry-text): Make sure we move
forward even if there is no text to be added.

Adding entry text with org-agenda-add-entry-text-maxlines greater than
0 could result in an infinite loop.
This commit is contained in:
Carsten Dominik 2010-08-21 07:09:20 +02:00
parent e50657d7cb
commit 96bacc020b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-agenda.el
View File

@ -2627,7 +2627,9 @@ Drawers will be excluded, also the line with scheduling/deadline info."
(setq txt (org-agenda-get-some-entry-text (setq txt (org-agenda-get-some-entry-text
m org-agenda-add-entry-text-maxlines " > ")) m org-agenda-add-entry-text-maxlines " > "))
(end-of-line 1) (end-of-line 1)
(if (string-match "\\S-" txt) (insert "\n" txt))))))) (if (string-match "\\S-" txt)
(insert "\n" txt)
(or (eobp (forward-char 1)))))))))
(defun org-agenda-get-some-entry-text (marker n-lines &optional indent (defun org-agenda-get-some-entry-text (marker n-lines &optional indent
&rest keep) &rest keep)