summaryrefslogtreecommitdiff
path: root/lisp/calendar/timeclock.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2019-06-19 23:10:04 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2019-06-19 23:10:04 +0200
commit2a6dca26ef5b4d992f4aac6fd3511036f393aa11 (patch)
treeaa74fe6002a668eaa6d92dbfea9d690da71596b7 /lisp/calendar/timeclock.el
parent20164ad93b48a72d57fbfc8a5acf7765a030f6a3 (diff)
downloademacs-2a6dca26ef5b4d992f4aac6fd3511036f393aa11.tar.gz
Remove XEmacs compat code from timeclock.el
* lisp/calendar/timeclock.el (timeclock-completing-read) (timeclock-ask-for-project, timeclock-ask-for-reason): Remove XEmacs compat code.
Diffstat (limited to 'lisp/calendar/timeclock.el')
-rw-r--r--lisp/calendar/timeclock.el16
1 files changed, 6 insertions, 10 deletions
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index a896df5e57c..825de487dcd 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -586,23 +586,20 @@ OLD-DEFAULT hours are set for every day that has no number indicated."
(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.
+ "A version of `completing-read.
PROMPT, ALIST and DEFAULT are used for the PROMPT, COLLECTION and DEF
arguments of `completing-read'."
- (if (featurep 'xemacs)
- (let ((str (completing-read prompt alist)))
- (if (or (null str) (zerop (length str)))
- default
- str))
- (completing-read prompt alist nil nil nil nil default)))
+ (declare (obsolete completing-read "27.1"))
+ (completing-read prompt alist nil nil nil nil default))
(defun timeclock-ask-for-project ()
"Ask the user for the project they are clocking into."
- (timeclock-completing-read
+ (completing-read
(format "Clock into which project (default %s): "
(or timeclock-last-project
(car timeclock-project-list)))
timeclock-project-list
+ nil nil nil nil
(or timeclock-last-project
(car timeclock-project-list))))
@@ -610,8 +607,7 @@ arguments of `completing-read'."
(defun timeclock-ask-for-reason ()
"Ask the user for the reason they are clocking out."
- (timeclock-completing-read "Reason for clocking out: "
- timeclock-reason-list))
+ (completing-read "Reason for clocking out: " timeclock-reason-list))
(define-obsolete-function-alias 'timeclock-update-modeline
'timeclock-update-mode-line "24.3")