diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-01-08 14:58:22 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-01-08 14:59:53 +0100 |
commit | 9c675b072758684f8485279a087f504c3edb793a (patch) | |
tree | 576b24f0e12574028cc4d20b9d7033d76a5a3ebc | |
parent | 0c93296f8362d6e81f9d8780e06fb341b0ab4fc7 (diff) | |
download | org-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.el | 9 |
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)) |