[Orgmode] [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)

[Richard KLINDA]

See attached simple patch.

>From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00 2001
From: Richard Klinda <address@hidden>
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

-- 
Richard