summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2018-01-08 14:58:22 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-01-08 14:59:53 +0100
commit9c675b072758684f8485279a087f504c3edb793a (patch)
tree576b24f0e12574028cc4d20b9d7033d76a5a3ebc
parent0c93296f8362d6e81f9d8780e06fb341b0ab4fc7 (diff)
downloadorg-mode-9c675b072758684f8485279a087f504c3edb793a.tar.gz
org-clock: Small fixes
* lisp/org-clock.el (org-clock-display-default-range): Improve docstring. Add :safe keyword. (org-clock-display): Fix comparison function.
-rw-r--r--lisp/org-clock.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 74956aa..3704730 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -430,7 +430,9 @@ This applies when using `org-clock-goto'."
:type 'integer)
(defcustom org-clock-display-default-range 'thisyear
- "Default range when displaying clocks with `org-clock-display'."
+ "Default range when displaying clocks with `org-clock-display'.
+Valid values are: `today', `yesterday', `thisweek', `lastweek',
+`thismonth', `lastmonth', `thisyear', `lastyear' and `untilnow'."
:group 'org-clock
:type '(choice (const today)
(const yesterday)
@@ -441,7 +443,8 @@ This applies when using `org-clock-goto'."
(const thisyear)
(const lastyear)
(const untilnow)
- (const :tag "Select range interactively" interactive)))
+ (const :tag "Select range interactively" interactive))
+ :safe #'symbolp)
(defvar org-clock-in-prepare-hook nil
"Hook run when preparing the clock.
@@ -1936,7 +1939,7 @@ Use `\\[org-clock-remove-overlays]' to remove the subtree times."
(todayp (org-clock-sum-today))
(customp (org-clock-sum-custom nil arg))
(t (org-clock-sum)))
- (unless (eq arg '(64))
+ (unless (equal arg '(64))
(save-excursion
(goto-char (point-min))
(while (or (and (equal (setq p (point)) (point-min))