From mboxrd@z Thu Jan 1 00:00:00 1970 From: Richard KLINDA Subject: [PATCH] org-clock-select-task bugfix (XEmacs incompatibility) Date: Tue, 01 Dec 2009 21:07:51 +0100 Message-ID: <87y6lmwj8o.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NFYyh-0003oD-Bu for emacs-orgmode@gnu.org; Tue, 01 Dec 2009 15:05:39 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NFYyc-0003mT-Iu for emacs-orgmode@gnu.org; Tue, 01 Dec 2009 15:05:38 -0500 Received: from [199.232.76.173] (port=60518 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NFYyc-0003mQ-GE for emacs-orgmode@gnu.org; Tue, 01 Dec 2009 15:05:34 -0500 Received: from viefep12-int.chello.at ([62.179.121.32]:36461) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NFYyc-0002Hu-23 for emacs-orgmode@gnu.org; Tue, 01 Dec 2009 15:05:34 -0500 Received: from edge02.upc.biz ([192.168.13.237]) by viefep12-int.chello.at (InterMail vM.7.09.01.00 201-2219-108-20080618) with ESMTP id <20091201200532.ORWB11716.viefep12-int.chello.at@edge02.upc.biz> for ; Tue, 1 Dec 2009 21:05:32 +0100 Received: from ignotus by localhost with local (masqmail 0.2.21) id 1NFZ0p-6bU-00 for ; Tue, 01 Dec 2009 21:07:51 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= See attached simple patch. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-org-clock-org-clock-select-task-bugfix-XEmacs.patch >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 --=-=-= -- Richard --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--