0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-24 00:18:42 +00:00

Bind some local variables

* lisp/org-agenda.el (org-agenda-get-scheduled):
(org-agenda-get-timestamps): Bind local variable `show-all'.
This commit is contained in:
Carsten Dominik 2011-03-01 07:27:57 +01:00
parent aaf0e2d6bb
commit 5726eb0676

View file

@ -4695,7 +4695,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines',
"\\|\\(<%%\\(([^>\n]+)\\)>\\)")) "\\|\\(<%%\\(([^>\n]+)\\)>\\)"))
marker hdmarker deadlinep scheduledp clockp closedp inactivep marker hdmarker deadlinep scheduledp clockp closedp inactivep
donep tmp priority category ee txt timestr tags b0 b3 e3 head donep tmp priority category ee txt timestr tags b0 b3 e3 head
todo-state end-of-match) todo-state end-of-match show-all)
(goto-char (point-min)) (goto-char (point-min))
(while (setq end-of-match (re-search-forward regexp nil t)) (while (setq end-of-match (re-search-forward regexp nil t))
(setq b0 (match-beginning 0) (setq b0 (match-beginning 0)
@ -5051,7 +5051,7 @@ FRACTION is what fraction of the head-warning time has passed."
(cons (marker-position mm) a))) (cons (marker-position mm) a)))
deadline-results)) deadline-results))
d2 diff pos pos1 category tags donep d2 diff pos pos1 category tags donep
ee txt head pastschedp todo-state face timestr s habitp) ee txt head pastschedp todo-state face timestr s habitp show-all)
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward regexp nil t) (while (re-search-forward regexp nil t)
(catch :skip (catch :skip