diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2008-09-19 08:30:22 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2008-09-19 08:30:22 +0200 |
commit | 1448aa2449cd2dc72bfda7e47c4a5ae3d1b9fc4d (patch) | |
tree | 4c14bbe1d25d856a75b705ef5a79de113ae3b7fb | |
parent | 194faab2b6c702d6729e5258b33a788ab0410b5a (diff) |
Bind some variables.
-rw-r--r-- | lisp/org-agenda.el | 2 | ||||
-rw-r--r-- | lisp/org-colview-xemacs.el | 3 | ||||
-rw-r--r-- | lisp/org-colview.el | 3 |
3 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 6807be7cd..c9652870b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3479,7 +3479,7 @@ FRACTION is what fraction of the head-warning time has passed." (regexp org-scheduled-time-regexp) (todayp (org-agenda-todayp date)) ; DATE bound by calendar (d1 (calendar-absolute-from-gregorian date)) ; DATE bound by calendar - d2 diff pos pos1 category tags + d2 diff pos pos1 category tags donep ee txt head pastschedp todo-state face timestr s) (goto-char (point-min)) (while (re-search-forward regexp nil t) diff --git a/lisp/org-colview-xemacs.el b/lisp/org-colview-xemacs.el index 5859f4068..e0de60aaa 100644 --- a/lisp/org-colview-xemacs.el +++ b/lisp/org-colview-xemacs.el @@ -793,7 +793,8 @@ around it." (when (string-match (concat "^" org-ts-regexp3 "$") s) (let* ((time (org-parse-time-string s 'nodefaults)) (active (equal (string-to-char s) ?<)) - (fmt (funcall (if (nth 1 time) 'cdr 'car) org-time-stamp-formats))) + (fmt (funcall (if (nth 1 time) 'cdr 'car) org-time-stamp-formats)) + time-before time-after) (unless active (setq fmt (concat "[" (substring fmt 1 -1) "]"))) (setf (car time) (or (car time) 0)) (setf (nth 1 time) (or (nth 1 time) 0)) diff --git a/lisp/org-colview.el b/lisp/org-colview.el index 62c1a7edd..4453a89f6 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -596,7 +596,8 @@ around it." (when (string-match (concat "^" org-ts-regexp3 "$") s) (let* ((time (org-parse-time-string s 'nodefaults)) (active (equal (string-to-char s) ?<)) - (fmt (funcall (if (nth 1 time) 'cdr 'car) org-time-stamp-formats))) + (fmt (funcall (if (nth 1 time) 'cdr 'car) org-time-stamp-formats)) + time-before time-after) (unless active (setq fmt (concat "[" (substring fmt 1 -1) "]"))) (setf (car time) (or (car time) 0)) (setf (nth 1 time) (or (nth 1 time) 0)) |