mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-25 07:27:57 +00:00
Code

org.el (org-timestamp-change): Don't use the `position'.

Browse Source 
* org.el (org-timestamp-change): Don't use the `position'.
This commit is contained in:
Bastien Guerry 2012-07-27 21:59:22 +02:00
parent b7a7a13ad1
commit 8f5b9b2bdf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org.el
View File

@ -16325,7 +16325,8 @@ in the timestamp determines what will be changed."
(org-back-to-heading t)
(let* ((cl (mapcar (lambda(c) (abs (- (marker-position c) (point))))
org-clock-history))
(clfixnth (+ fixnext (position (apply #'min cl) cl)))
(clfixnth
(+ fixnext (- (length cl) (or (length (member (apply #'min cl) cl)) 100))))
(clfixpos (if (> 0 clfixnth) nil (nth clfixnth org-clock-history))))
(if (not clfixpos)
(message "No clock to adjust")