summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-07-21 11:48:35 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2011-07-21 11:48:35 +0200
commitfd0f8e10d1d3a339da9460d6c71283e85897c455 (patch)
treec3f71b18949e8b84e54387c368cc524fd1b28175
parentc65df4aa015f7df35263509021c54cccc40548f0 (diff)
downloadorg-mode-fd0f8e10d1d3a339da9460d6c71283e85897c455.tar.gz
Fix bug with TODO states changes modifying scheduling of next headline
* lisp/org.el (org-timestamp-change): some locales don't use the same length for date abbreviations. Set a marker at origin in case length of new timestamp is different. Thanks to Tom for analyzing this.
-rw-r--r--lisp/org.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 58aeb73..496e9aa 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -15567,7 +15567,7 @@ With prefix ARG, change that many days."
The date will be changed by N times WHAT. WHAT can be `day', `month',
`year', `minute', `second'. If WHAT is not given, the cursor position
in the timestamp determines what will be changed."
- (let ((pos (point))
+ (let ((pos (copy-marker (point)))
with-hm inactive
(dm (max (nth 1 org-time-stamp-rounding-minutes) 1))
org-ts-what
@@ -15631,6 +15631,7 @@ in the timestamp determines what will be changed."
(org-insert-time-stamp time with-hm inactive nil nil extra))
(org-clock-update-time-maybe)
(goto-char pos)
+ (move-marker pos nil)
;; Try to recenter the calendar window, if any
(if (and org-calendar-follow-timestamp-change
(get-buffer-window "*Calendar*" t)