mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 17:46:27 +00:00
Code Releases Activity

Solve some XEmacs incompatibilities

Browse source 
Reports and some patches by Richard Klinda
This commit is contained in:
Carsten Dominik 2009-12-02 08:08:30 +01:00
parent 87fc0b0e2c
commit 16750683ea
2 changed files with 22 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,13 @@
2009-12-03 Carsten Dominik <carsten.dominik@gmail.com>
* org-clock.el (org-clock-select-task): Convert integer to
character for XEmacs.
2009-12-02 Carsten Dominik <carsten.dominik@gmail.com>
* org-clock.el (org-clock-resolve): Make reading a char XEmacs
compatible.
2009-11-30 Tassilo Horn <tassilo@member.fsf.org>
* org.el (org-complete-tags-always-offer-all-agenda-tags): New

18
lisp/org-clock.el
View file

@ -339,6 +339,7 @@ of a different task.")
(if (< i 10)
(+ i ?0)
(+ i (- ?A 10))) m))
(if (fboundp 'int-to-char) (setq s (int-to-char s)))
(push s sel-list)))
org-clock-history)
(org-fit-window-to-buffer)
@ -700,12 +701,17 @@ was started."
(goto-char (match-end 0)))
nil))))))
(let (char-pressed)
(while (null char-pressed)
(setq char-pressed
(read-char (concat (funcall prompt-fn clock)
" [(kK)eep (sS)ubtract (C)ancel]? ")
nil 45)))
char-pressed))))
(if (featurep 'xemacs)
(progn
(message (concat (funcall prompt-fn clock)
" [(kK)eep (sS)ubtract (C)ancel]? "))
(setq char-pressed (read-char-exclusive)))
(while (null char-pressed)
(setq char-pressed
(read-char (concat (funcall prompt-fn clock)
" [(kK)eep (sS)ubtract (C)ancel]? ")
nil 45)))
char-pressed)))))
(default (floor (/ (org-float-time
(time-subtract (current-time) last-valid)) 60)))
(keep (and (memq ch '(?k ?K))