diff options
author | John Wiegley <[email protected]> | 2001-04-11 15:51:19 +0000 |
---|---|---|
committer | John Wiegley <[email protected]> | 2001-04-11 15:51:19 +0000 |
commit | 978bd3eafc3d2944556e83abe9818ebdfcb04a02 (patch) | |
tree | fe7a6c515c03af0642cb03a2b9ff606346cfd005 /lisp/calendar | |
parent | 3f75af1b60a0ec9ba85a24eb59210b93967d28b4 (diff) |
(timeclock-completing-read): new function.
(timeclock-ask-for-project, timeclock-ask-for-reason): Call
`timeclock-completing-read', which works under XEmacs as well.
Diffstat (limited to 'lisp/calendar')
-rw-r--r-- | lisp/calendar/timeclock.el | 26 |
1 files changed, 18 insertions, 8 deletions
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el index e3cc125777..82d1e4c349 100644 --- a/lisp/calendar/timeclock.el +++ b/lisp/calendar/timeclock.el @@ -540,21 +540,31 @@ non-nil." (defvar timeclock-project-list nil) (defvar timeclock-last-project nil) +(defun timeclock-completing-read (prompt alist &optional default) + "A version of `completing-read' that works on both Emacs and XEmacs." + (if (featurep 'xemacs) + (let ((str (completing-read prompt alist))) + (if (or (null str) (= (length str) 0)) + default + str)) + (completing-read prompt alist nil nil nil nil default))) + (defun timeclock-ask-for-project () "Ask the user for the project they are clocking into." - (completing-read (format "Clock into which project (default \"%s\"): " - (or timeclock-last-project - (car timeclock-project-list))) - (mapcar 'list timeclock-project-list) - nil nil nil nil (or timeclock-last-project - (car timeclock-project-list)))) + (timeclock-completing-read + (format "Clock into which project (default \"%s\"): " + (or timeclock-last-project + (car timeclock-project-list))) + (mapcar 'list timeclock-project-list) + (or timeclock-last-project + (car timeclock-project-list)))) (defvar timeclock-reason-list nil) (defun timeclock-ask-for-reason () "Ask the user for the reason they are clocking out." - (completing-read "Reason for clocking out: " - (mapcar 'list timeclock-reason-list))) + (timeclock-completing-read "Reason for clocking out: " + (mapcar 'list timeclock-reason-list))) (defun timeclock-update-modeline () "Update the `timeclock-mode-string' displayed in the modeline." |