Mercurial > emacs
comparison lisp/textmodes/org.el @ 70019:a186cf26482b
*** empty log message ***
author | Carsten Dominik <dominik@science.uva.nl> |
---|---|
date | Thu, 13 Apr 2006 16:41:10 +0000 |
parents | 513397bbb13c |
children | 28d6f65fa9e6 c156f6a9e7b5 |
comparison
equal
deleted
inserted
replaced
70018:513397bbb13c | 70019:a186cf26482b |
---|---|
5177 (calendar-gregorian-from-absolute sd))) | 5177 (calendar-gregorian-from-absolute sd))) |
5178 (n1 org-agenda-start-on-weekday) | 5178 (n1 org-agenda-start-on-weekday) |
5179 (d (- nt n1))) | 5179 (d (- nt n1))) |
5180 (- sd (+ (if (< d 0) 7 0) d))))) | 5180 (- sd (+ (if (< d 0) 7 0) d))))) |
5181 (day-numbers (list start)) | 5181 (day-numbers (list start)) |
5182 ;FIXME (inhibit-redisplay t) | 5182 (inhibit-redisplay t) |
5183 s e rtn rtnall file date d start-pos end-pos todayp nd) | 5183 s e rtn rtnall file date d start-pos end-pos todayp nd) |
5184 (setq org-agenda-redo-command | 5184 (setq org-agenda-redo-command |
5185 (list 'org-agenda-list (list 'quote include-all) start-day ndays t)) | 5185 (list 'org-agenda-list (list 'quote include-all) start-day ndays t)) |
5186 ;; Make the list of days | 5186 ;; Make the list of days |
5187 (setq ndays (or ndays org-agenda-ndays) | 5187 (setq ndays (or ndays org-agenda-ndays) |