mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Allow up to 42 elements for the clock history.

Browse Source
This commit is contained in:
Carsten Dominik 2008-05-06 15:08:35 +02:00
parent fe5c248122
commit 7972356d09
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-clock.el
View File

@ -109,6 +109,7 @@ of a different task.")
(defun org-clock-history-push (&optional pos buffer)
"Push a marker to the clock history."
(setq org-clock-history-length (max 1 (min 42 org-clock-history-length)))
(let ((m (move-marker (make-marker) (or pos (point)) buffer)) n l)
(while (setq n (member m org-clock-history))
(move-marker (car n) nil))
@ -157,10 +158,12 @@ of a different task.")
(when (marker-buffer m)
(setq i (1+ i)
s (org-clock-insert-selection-line
(string-to-char (number-to-string i)) m))
(+ i ?0) m))
(push s sel-list)))
org-clock-history)
(shrink-window-if-larger-than-buffer)
(if (fboundp 'fit-window-to-buffer)
(fit-window-to-buffer)
(shrink-window-if-larger-than-buffer))
(message (or prompt "Select task for clocking:"))
(setq rpl (read-char-exclusive))
(cond