ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove special characters as selection keys for clock history. 

Patch from Bernt Hansen.
This commit is contained in:
Carsten Dominik 2008-05-09 21:40:50 +02:00
parent 939051fd3f
commit 77f1f31c99
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2008-05-09 Bernt Hansen <bernt@norang.ca>
* org-clock.el (org-clock-select-task): Make sure the selection
letters are 1-9 and A-Z, no special characters.
2008-05-09 Carsten Dominik <dominik@science.uva.nl> 2008-05-09 Carsten Dominik <dominik@science.uva.nl>

6
lisp/org-clock.el
View File

@ -109,7 +109,7 @@ of a different task.")
(defun org-clock-history-push (&optional pos buffer) (defun org-clock-history-push (&optional pos buffer)
"Push a marker to the clock history." "Push a marker to the clock history."
(setq org-clock-history-length (max 1 (min 42 org-clock-history-length))) (setq org-clock-history-length (max 1 (min 35 org-clock-history-length)))
(let ((m (move-marker (make-marker) (or pos (point)) buffer)) n l) (let ((m (move-marker (make-marker) (or pos (point)) buffer)) n l)
(while (setq n (member m org-clock-history)) (while (setq n (member m org-clock-history))
(move-marker (car n) nil)) (move-marker (car n) nil))
@ -158,7 +158,9 @@ of a different task.")
(when (marker-buffer m) (when (marker-buffer m)
(setq i (1+ i) (setq i (1+ i)
s (org-clock-insert-selection-line s (org-clock-insert-selection-line
(+ i ?0) m)) (if (< i 10)
(+ i ?0)
(+ i (- ?A 10))) m))
(push s sel-list))) (push s sel-list)))
org-clock-history) org-clock-history)
(if (fboundp 'fit-window-to-buffer) (if (fboundp 'fit-window-to-buffer)