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

org-clock.el (org-clock-select-task): Remove successive duplicates in the clock history to consider 

* org-clock.el (org-clock-select-task): Remove successive
duplicates in the clock history to consider.

Thanks to Sébastien Vauban for pointing at this.
This commit is contained in:
Bastien Guerry 2013-04-13 10:21:16 +02:00
parent 9c141cfd8c
commit 13deb41a3a
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-clock.el
View File

@ -516,7 +516,11 @@ of a different task.")
(defun org-clock-select-task (&optional prompt)
"Select a task that was recently associated with clocking."
(interactive)
(let ((chl (length org-clock-history)) sel-list rpl (i 0) s)
(let (och chl sel-list rpl (i 0) s)
;; Remove successive dups from the clock history to consider
(mapc (lambda (c) (if (not (equal c (car och))) (push c och)))
org-clock-history)
(setq och (reverse och) chl (length och))
(if (zerop chl)
(user-error "No recent clock")
(save-window-excursion
@ -546,7 +550,7 @@ of a different task.")
(+ i (- ?A 10))) m))
(if (fboundp 'int-to-char) (setf (car s) (int-to-char (car s))))
(push s sel-list)))
org-clock-history)
och)
(run-hooks 'org-clock-before-select-task-hook)
(goto-char (point-min))
;; Set min-height relatively to circumvent a possible but in