tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org.el: fix bug about repeater not kept when using org-time-stamp

Browse source 
Thanks to Karl Voit for reporting this.
This commit is contained in:
Bastien Guerry 2011-06-27 18:22:37 +02:00
parent 6d18e03519
commit d7c693c1ff
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org.el
View file

@ -14382,6 +14382,13 @@ at the cursor, it will be modified."
(apply 'encode-time (org-parse-time-string (match-string 1)))
(current-time)))
(default-input (and ts (org-get-compact-tod ts)))
(repeater (save-excursion
(save-match-data
(end-of-line)
(when (re-search-backward
"\\([.+]+[0-9]+[dwmy]\\(?:[/ ][-+]?[0-9]+[dwmy]\\)?\\) ?"
(- (point) 20) t)
(match-string 1)))))
org-time-was-given org-end-time-was-given time)
(cond
((and (org-at-timestamp-p t)
@ -14401,7 +14408,11 @@ at the cursor, it will be modified."
(setq org-last-changed-timestamp
(org-insert-time-stamp
time (or org-time-was-given arg)
inactive nil nil (list org-end-time-was-given))))
inactive nil nil (list org-end-time-was-given)))
(when repeater (goto-char (1- (point))) (insert " " repeater)
(setq org-last-changed-timestamp
(concat (substring org-last-inserted-timestamp 0 -1)
" " repeater ">"))))
(message "Timestamp updated"))
(t
(setq time (let ((this-command this-command))