Fix "Invalid time zone specification" error

* lisp/org.el (org-timestamp-change): Correctly handle `encode-time'
  parameters.

Suggested-by: Derek Feichtinger <dfeich@gmail.com>
Reported-by: Eric Abrahamsen <eric@ericabrahamsen.net>
<http://permalink.gmane.org/gmane.emacs.orgmode/106344>
This commit is contained in:
Nicolas Goaziou 2016-04-16 11:33:28 +02:00
parent e3656b6b2e
commit e0acd8a15a
1 changed files with 8 additions and 7 deletions

View File

@ -18034,7 +18034,8 @@ When SUPPRESS-TMP-DELAY is non-nil, suppress delays like \"--2d\"."
(setcar (cdr time0) (+ (nth 1 time0) (setcar (cdr time0) (+ (nth 1 time0)
(if (> n 0) (- rem) (- dm rem)))))) (if (> n 0) (- rem) (- dm rem))))))
(setq time (setq time
(encode-time (or (car time0) 0) (apply #'encode-time
(or (car time0) 0)
(+ (if (eq org-ts-what 'minute) n 0) (nth 1 time0)) (+ (if (eq org-ts-what 'minute) n 0) (nth 1 time0))
(+ (if (eq org-ts-what 'hour) n 0) (nth 2 time0)) (+ (if (eq org-ts-what 'hour) n 0) (nth 2 time0))
(+ (if (eq org-ts-what 'day) n 0) (nth 3 time0)) (+ (if (eq org-ts-what 'day) n 0) (nth 3 time0))