From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00 2001 From: Richard Klinda Date: Tue, 1 Dec 2009 21:03:39 +0100 Subject: [PATCH] org-clock: org-clock-select-task bugfix (XEmacs) --- lisp/org-clock.el | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 56dbab5..87017fc 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -344,6 +344,10 @@ of a different task.") (org-fit-window-to-buffer) (message (or prompt "Select task for clocking:")) (setq rpl (read-char-exclusive)) + (when (featurep 'xemacs) + ;; in XEmacs read-char-exclusive returns character, instead of + ;; ascii value + (setq rpl (char-octet rpl))) (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) -- 1.6.2.1