diff options
| author | Bastien Guerry <bastien1@free.fr> | 2012-01-04 16:20:49 +0100 |
|---|---|---|
| committer | Bastien Guerry <bastien1@free.fr> | 2012-01-04 16:20:49 +0100 |
| commit | 14e1337f8462d1ca2e4af69de9fba58ddabd0274 (patch) | |
| tree | fce16fb4a1cab5a9cc03f540579c886ac1fad5d0 /lisp/org/org-clock.el | |
| parent | 0b41d90bd3ef6f1fb03d23cfbe064fcf865c82c3 (diff) | |
| download | emacs-14e1337f8462d1ca2e4af69de9fba58ddabd0274.tar.gz | |
Fix trailing whitespaces in Org files.
Diffstat (limited to 'lisp/org/org-clock.el')
| -rw-r--r-- | lisp/org/org-clock.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index ad6d76e038a..2784707e452 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el @@ -2000,7 +2000,7 @@ the currently selected interval size." (encode-time 0 0 0 (+ d n) m y)))) ((and wp (string-match "w\\|W" wp) mw (> (length wp) 0)) (require 'cal-iso) - (setq date (calendar-gregorian-from-absolute + (setq date (calendar-gregorian-from-absolute (calendar-absolute-from-iso (list (+ mw n) 1 y)))) (setq ins (format-time-string "%G-W%V" @@ -2017,7 +2017,7 @@ the currently selected interval size." (setq mw 5 y (- y 1)) ()) - (setq date (calendar-gregorian-from-absolute + (setq date (calendar-gregorian-from-absolute (calendar-absolute-from-iso (org-quarter-to-date (+ mw n) y)))) (setq ins (format-time-string (concatenate 'string (number-to-string y) "-Q" (number-to-string (+ mw n))) @@ -2642,4 +2642,3 @@ The details of what will be saved are regulated by the variable (provide 'org-clock) ;;; org-clock.el ends here - |