* [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)
@ 2009-12-01 20:07 Richard KLINDA
2009-12-02 5:41 ` Carsten Dominik
0 siblings, 1 reply; 6+ messages in thread
From: Richard KLINDA @ 2009-12-01 20:07 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 28 bytes --]
See attached simple patch.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-org-clock-org-clock-select-task-bugfix-XEmacs.patch --]
[-- Type: text/x-diff, Size: 850 bytes --]
From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00 2001
From: Richard Klinda <rklinda@gmail.com>
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
[-- Attachment #3: Type: text/plain, Size: 13 bytes --]
--
Richard
[-- Attachment #4: Type: text/plain, Size: 201 bytes --]
_______________________________________________
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
^ permalink raw reply related [flat|nested] 6+ messages in thread
* Re: [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)
2009-12-01 20:07 [PATCH] org-clock-select-task bugfix (XEmacs incompatibility) Richard KLINDA
@ 2009-12-02 5:41 ` Carsten Dominik
2009-12-02 12:32 ` Richard KLINDA
0 siblings, 1 reply; 6+ messages in thread
From: Carsten Dominik @ 2009-12-02 5:41 UTC (permalink / raw)
To: Richard KLINDA; +Cc: emacs-orgmode
Hi Richard,
I don't see why this would be necessary? Under what circumstances
does this fail?
- Carsten
On Dec 1, 2009, at 9:07 PM, Richard KLINDA wrote:
> See attached simple patch.
>
> From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00 2001
> From: Richard Klinda <rklinda@gmail.com>
> 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
> _______________________________________________
> 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
- Carsten
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)
2009-12-02 5:41 ` Carsten Dominik
@ 2009-12-02 12:32 ` Richard KLINDA
2009-12-03 11:47 ` Carsten Dominik
0 siblings, 1 reply; 6+ messages in thread
From: Richard KLINDA @ 2009-12-02 12:32 UTC (permalink / raw)
To: Carsten Dominik; +Cc: emacs-orgmode
Hello Carsten, this failed for me ever since, but as I haven't needed
the functionality I was just lazy to report it. Oh:) I see why my patch
must be problematic, sorry about that.
The problem is that, when pressed a number as a reply to the question,
this cond command (see below) always goes to the error clause, because
rpl gets the value of ?1 for example, but sel-list look like ((49 . ...)
(50 . ...)) so the assoc can't find ?1. With my patch, the assoc finds
it because rpl is converted to ASCII code, but now ?q and ?x clauses
don't work.:)
(cond
((eq rpl ?q) nil)
((eq rpl ?x) nil)
((assoc rpl sel-list) (cdr (assoc rpl sel-list)))
(t (error "Invalid task choice %c" rpl)))
I hope you see what the problem is, I think it must be an XEmacs issue.
>>>>> Regarding 'Re: [Orgmode] [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)'; Carsten Dominik adds:
> Hi Richard, I don't see why this would be necessary? Under what
> circumstances does this fail?
> - Carsten
> On Dec 1, 2009, at 9:07 PM, Richard KLINDA wrote:
>> See attached simple patch.
>> From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00
>> 2001 From: Richard Klinda <rklinda@gmail.com> 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 _______________________________________________
>> 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
> - Carsten
--
Richard
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)
2009-12-02 12:32 ` Richard KLINDA
@ 2009-12-03 11:47 ` Carsten Dominik
2009-12-03 12:41 ` Richard KLINDA
0 siblings, 1 reply; 6+ messages in thread
From: Carsten Dominik @ 2009-12-03 11:47 UTC (permalink / raw)
To: Richard KLINDA; +Cc: emacs-orgmode
Hi Richard,
I ave fixed this in a different way. Please verify!
- Carsten
On Dec 2, 2009, at 1:32 PM, Richard KLINDA wrote:
> Hello Carsten, this failed for me ever since, but as I haven't needed
> the functionality I was just lazy to report it. Oh:) I see why my
> patch
> must be problematic, sorry about that.
>
> The problem is that, when pressed a number as a reply to the question,
> this cond command (see below) always goes to the error clause, because
> rpl gets the value of ?1 for example, but sel-list look like
> ((49 . ...)
> (50 . ...)) so the assoc can't find ?1. With my patch, the assoc
> finds
> it because rpl is converted to ASCII code, but now ?q and ?x clauses
> don't work.:)
>
> (cond
> ((eq rpl ?q) nil)
> ((eq rpl ?x) nil)
> ((assoc rpl sel-list) (cdr (assoc rpl sel-list)))
> (t (error "Invalid task choice %c" rpl)))
>
> I hope you see what the problem is, I think it must be an XEmacs
> issue.
>
>>>>>> Regarding 'Re: [Orgmode] [PATCH] org-clock-select-task bugfix
>>>>>> (XEmacs incompatibility)'; Carsten Dominik adds:
>
>> Hi Richard, I don't see why this would be necessary? Under what
>> circumstances does this fail?
>
>> - Carsten
>
>> On Dec 1, 2009, at 9:07 PM, Richard KLINDA wrote:
>
>>> See attached simple patch.
>
>>> From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00
>>> 2001 From: Richard Klinda <rklinda@gmail.com> 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 _______________________________________________
>>> 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
>
>> - Carsten
>
> --
> Richard
- Carsten
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)
2009-12-03 11:47 ` Carsten Dominik
@ 2009-12-03 12:41 ` Richard KLINDA
2009-12-03 13:54 ` Carsten Dominik
0 siblings, 1 reply; 6+ messages in thread
From: Richard KLINDA @ 2009-12-03 12:41 UTC (permalink / raw)
To: Carsten Dominik; +Cc: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 155 bytes --]
Almost good, but the variable "s" contains a list, we need to
int-to-char the "car" of that, see attached trivial patch. It works
with this. Thank you.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: fix.patch --]
[-- Type: text/x-diff, Size: 513 bytes --]
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 321dd95..ce309ef 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -339,7 +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)))
+ (if (fboundp 'int-to-char) (setf (car s) (int-to-char (car s))))
(push s sel-list)))
org-clock-history)
(org-fit-window-to-buffer)
[-- Attachment #3: Type: text/plain, Size: 2668 bytes --]
>>>>> Regarding 'Re: [Orgmode] [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)'; Carsten Dominik adds:
> Hi Richard, I ave fixed this in a different way. Please verify!
> - Carsten
> On Dec 2, 2009, at 1:32 PM, Richard KLINDA wrote:
>> Hello Carsten, this failed for me ever since, but as I haven't
>> needed the functionality I was just lazy to report it. Oh:) I see
>> why my patch must be problematic, sorry about that.
>> The problem is that, when pressed a number as a reply to the
>> question, this cond command (see below) always goes to the error
>> clause, because rpl gets the value of ?1 for example, but sel-list
>> look like ((49 . ...) (50 . ...)) so the assoc can't find ?1.
>> With my patch, the assoc finds it because rpl is converted to ASCII
>> code, but now ?q and ?x clauses don't work.:)
>> (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) ((assoc rpl sel-list)
>> (cdr (assoc rpl sel-list))) (t (error "Invalid task choice %c"
>> rpl)))
>> I hope you see what the problem is, I think it must be an XEmacs
>> issue.
>>>>>>> Regarding 'Re: [Orgmode] [PATCH] org-clock-select-task bugfix
>>>>>>> (XEmacs incompatibility)'; Carsten Dominik adds:
>>> Hi Richard, I don't see why this would be necessary? Under what
>>> circumstances does this fail?
>>> - Carsten
>>> On Dec 1, 2009, at 9:07 PM, Richard KLINDA wrote:
>>>> See attached simple patch.
>>>> From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00
>>>> 2001 From: Richard Klinda <rklinda@gmail.com> 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 _______________________________________________
>>>> 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
>>> - Carsten
>> -- Richard
> - Carsten
--
Udv, Richard
[-- Attachment #4: Type: text/plain, Size: 201 bytes --]
_______________________________________________
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
^ permalink raw reply related [flat|nested] 6+ messages in thread
* Re: [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)
2009-12-03 12:41 ` Richard KLINDA
@ 2009-12-03 13:54 ` Carsten Dominik
0 siblings, 0 replies; 6+ messages in thread
From: Carsten Dominik @ 2009-12-03 13:54 UTC (permalink / raw)
To: Richard KLINDA; +Cc: emacs-orgmode
Ah, of course, sorry about that, thanks.
- Carsten
On Dec 3, 2009, at 1:41 PM, Richard KLINDA wrote:
> Almost good, but the variable "s" contains a list, we need to
> int-to-char the "car" of that, see attached trivial patch. It works
> with this. Thank you.
>
> diff --git a/lisp/org-clock.el b/lisp/org-clock.el
> index 321dd95..ce309ef 100644
> --- a/lisp/org-clock.el
> +++ b/lisp/org-clock.el
> @@ -339,7 +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)))
> + (if (fboundp 'int-to-char) (setf (car s) (int-to-char
> (car s))))
> (push s sel-list)))
> org-clock-history)
> (org-fit-window-to-buffer)
>
>
>>>>>> Regarding 'Re: [Orgmode] [PATCH] org-clock-select-task bugfix
>>>>>> (XEmacs incompatibility)'; Carsten Dominik adds:
>
>> Hi Richard, I ave fixed this in a different way. Please verify!
>
>> - Carsten
>
>> On Dec 2, 2009, at 1:32 PM, Richard KLINDA wrote:
>
>>> Hello Carsten, this failed for me ever since, but as I haven't
>>> needed the functionality I was just lazy to report it. Oh:) I see
>>> why my patch must be problematic, sorry about that.
>
>>> The problem is that, when pressed a number as a reply to the
>>> question, this cond command (see below) always goes to the error
>>> clause, because rpl gets the value of ?1 for example, but sel-list
>>> look like ((49 . ...) (50 . ...)) so the assoc can't find ?1.
>>> With my patch, the assoc finds it because rpl is converted to ASCII
>>> code, but now ?q and ?x clauses don't work.:)
>
>>> (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) ((assoc rpl sel-list)
>>> (cdr (assoc rpl sel-list))) (t (error "Invalid task choice %c"
>>> rpl)))
>
>>> I hope you see what the problem is, I think it must be an XEmacs
>>> issue.
>
>>>>>>>> Regarding 'Re: [Orgmode] [PATCH] org-clock-select-task bugfix
>>>>>>>> (XEmacs incompatibility)'; Carsten Dominik adds:
>
>>>> Hi Richard, I don't see why this would be necessary? Under what
>>>> circumstances does this fail?
>
>>>> - Carsten
>
>>>> On Dec 1, 2009, at 9:07 PM, Richard KLINDA wrote:
>
>>>>> See attached simple patch.
>
>>>>> From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00
>>>>> 2001 From: Richard Klinda <rklinda@gmail.com> 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 _______________________________________________
>>>>> 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
>
>>>> - Carsten
>
>>> -- Richard
>
>> - Carsten
>
> --
> Udv, Richard
- Carsten
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2009-12-03 13:54 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2009-12-01 20:07 [PATCH] org-clock-select-task bugfix (XEmacs incompatibility) Richard KLINDA
2009-12-02 5:41 ` Carsten Dominik
2009-12-02 12:32 ` Richard KLINDA
2009-12-03 11:47 ` Carsten Dominik
2009-12-03 12:41 ` Richard KLINDA
2009-12-03 13:54 ` Carsten Dominik
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).