Lines Matching refs:proj
1036 (let ((proj (assoc desc (nth 2 log-data))))
1037 (if (null proj)
1041 (nconc (cdr proj) (list entry)))))))
1195 (let ((proj-data (cdr (assoc project (timeclock-project-alist log))))
1200 (while proj-data
1202 (timeclock-entry-begin (car proj-data)) today))
1203 (setq today-len (timeclock-entry-list-length proj-data)
1204 proj-data nil)
1207 (timeclock-entry-begin (car proj-data))
1209 (setq two-week-len (timeclock-entry-list-length proj-data)))
1210 (setq proj-data (cdr proj-data))))