tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Bind some variables.

This commit is contained in:
Carsten Dominik 2008-09-19 08:30:22 +02:00
parent 194faab2b6
commit 1448aa2449
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/org-agenda.el
View File

@ -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)

3
lisp/org-colview-xemacs.el
View File

@ -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))

3
lisp/org-colview.el
View File

@ -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))