mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 15:32:52 +00:00
Solve some XEmacs incompatibilities
Reports and some patches by Richard Klinda
This commit is contained in:
parent
87fc0b0e2c
commit
16750683ea
|
@ -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>
|
2009-11-30 Tassilo Horn <tassilo@member.fsf.org>
|
||||||
|
|
||||||
* org.el (org-complete-tags-always-offer-all-agenda-tags): New
|
* org.el (org-complete-tags-always-offer-all-agenda-tags): New
|
||||||
|
|
|
@ -339,6 +339,7 @@ of a different task.")
|
||||||
(if (< i 10)
|
(if (< i 10)
|
||||||
(+ i ?0)
|
(+ i ?0)
|
||||||
(+ i (- ?A 10))) m))
|
(+ i (- ?A 10))) m))
|
||||||
|
(if (fboundp 'int-to-char) (setq s (int-to-char s)))
|
||||||
(push s sel-list)))
|
(push s sel-list)))
|
||||||
org-clock-history)
|
org-clock-history)
|
||||||
(org-fit-window-to-buffer)
|
(org-fit-window-to-buffer)
|
||||||
|
@ -700,12 +701,17 @@ was started."
|
||||||
(goto-char (match-end 0)))
|
(goto-char (match-end 0)))
|
||||||
nil))))))
|
nil))))))
|
||||||
(let (char-pressed)
|
(let (char-pressed)
|
||||||
(while (null char-pressed)
|
(if (featurep 'xemacs)
|
||||||
(setq char-pressed
|
(progn
|
||||||
(read-char (concat (funcall prompt-fn clock)
|
(message (concat (funcall prompt-fn clock)
|
||||||
" [(kK)eep (sS)ubtract (C)ancel]? ")
|
" [(kK)eep (sS)ubtract (C)ancel]? "))
|
||||||
nil 45)))
|
(setq char-pressed (read-char-exclusive)))
|
||||||
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)))))
|
||||||
(default (floor (/ (org-float-time
|
(default (floor (/ (org-float-time
|
||||||
(time-subtract (current-time) last-valid)) 60)))
|
(time-subtract (current-time) last-valid)) 60)))
|
||||||
(keep (and (memq ch '(?k ?K))
|
(keep (and (memq ch '(?k ?K))
|
||||||
|
|
Loading…
Reference in a new issue