Mercurial > emacs
comparison lisp/calendar/timeclock.el @ 90233:ee12d75eb214
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-85
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 556-561)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 122-124)
- Update from CVS: lisp/mm-url.el (mm-url-decode-entities): Fix regexp.
- Update from CVS
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 25 Sep 2005 22:07:01 +0000 |
| parents | fa0da9b57058 ed770a0a7846 |
| children | 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
| 90232:eab32348047a | 90233:ee12d75eb214 |
|---|---|
| 597 (completing-read prompt alist nil nil nil nil default))) | 597 (completing-read prompt alist nil nil nil nil default))) |
| 598 | 598 |
| 599 (defun timeclock-ask-for-project () | 599 (defun timeclock-ask-for-project () |
| 600 "Ask the user for the project they are clocking into." | 600 "Ask the user for the project they are clocking into." |
| 601 (timeclock-completing-read | 601 (timeclock-completing-read |
| 602 (format "Clock into which project (default \"%s\"): " | 602 (format "Clock into which project (default %s): " |
| 603 (or timeclock-last-project | 603 (or timeclock-last-project |
| 604 (car timeclock-project-list))) | 604 (car timeclock-project-list))) |
| 605 (mapcar 'list timeclock-project-list) | 605 (mapcar 'list timeclock-project-list) |
| 606 (or timeclock-last-project | 606 (or timeclock-last-project |
| 607 (car timeclock-project-list)))) | 607 (car timeclock-project-list)))) |