diff options
| author | Bastien Guerry <bzg@altern.org> | 2011-10-23 22:45:53 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2011-10-23 22:45:53 +0200 |
| commit | bc29a5c7ab686cb4130439a6a84c9707d9333a49 (patch) | |
| tree | c4be9dc64f836df61f3b7dceda5b8e26241e24bb | |
| parent | 77eeb0df1b149e8beb0a052334cffc7f826e2e7a (diff) | |
| download | org-mode-bc29a5c7ab686cb4130439a6a84c9707d9333a49.tar.gz | |
Silence byte-compiler.
| -rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 32087e3..c54d329 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5377,8 +5377,8 @@ FRACTION is what fraction of the head-warning time has passed." (abbreviate-file-name buffer-file-name)))) (regexp org-tr-regexp) (d0 (calendar-absolute-from-gregorian date)) - marker hdmarker ee txt d1 d2 s1 s2 category todo-state tags pos - head donep) + marker hdmarker ee txt d1 d2 s1 s2 category org-category-pos + todo-state tags pos head donep) (goto-char (point-min)) (while (re-search-forward regexp nil t) (catch :skip @@ -7551,7 +7551,7 @@ the same tree node, and the headline of the tree node in the Org-mode file." (or (not what) (eq what 'day)) (not (save-match-data (org-at-date-range-p)))) (setq cdate (org-parse-time-string (match-string 0) 'nodefault) - cdate (calendar-absolute-from-gregorian + cdate (calendar-absolute-from-gregorian (list (nth 4 cdate) (nth 3 cdate) (nth 5 cdate))) today (org-today)) (if (> today cdate) |