[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Org-mode 4.72
From: |
Bastien |
Subject: |
Re: [Orgmode] Org-mode 4.72 |
Date: |
Wed, 25 Apr 2007 05:43:25 +0200 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/23.0.0 (gnu/linux) |
Hi Carsten,
Carsten Dominik <address@hidden> writes:
> org-mode version 4.72 is now available at
> http://www.astro.uva.nl/~dominik/Tools/org
I cannot compile Org-mode 4.72 here with GNU Emacs 23.0.0.1
(i686-pc-linux-gnu, GTK+ Version 2.10.6).
I stumbled upon this defun that i cannot eval properly (line 3786) :
,----
| (org-defkey org-mouse-map
| (if (featurep 'xemacs) [button2] [mouse-2]) 'org-open-at-mouse)
`----
Seems there is something wrong with S-up. Here is a backtrace:
Debugger entered--Lisp error: (wrong-type-argument sequencep S-up)
apply(debug error (wrong-type-argument sequencep S-up))
edebug(error (wrong-type-argument sequencep S-up))
key-description(S-up)
(equal (key-description (car x)) nkey)
(lambda (x) (equal (key-description ...) nkey))((S-up [(shift up)] [(meta
112)]))
cl-position(nil ((S-up [...] [...]) (S-down [...] [...]) (S-left [...] [...])
(S-right [...] [...]) (S-return [...] [...])) 0 nil nil)
position(nil ((S-up [...] [...]) (S-down [...] [...]) (S-left [...] [...])
(S-right [...] [...]) (S-return [...] [...])) :if (lambda (x) (equal
(key-description ...) nkey)))
apply(position nil ((S-up [...] [...]) (S-down [...] [...]) (S-left [...]
[...]) (S-right [...] [...]) (S-return [...] [...])) (:if (lambda (x) (equal
... nkey))))
find(nil ((S-up [...] [...]) (S-down [...] [...]) (S-left [...] [...])
(S-right [...] [...]) (S-return [...] [...])) :if (lambda (x) (equal
(key-description ...) nkey)))
apply(find nil ((S-up [...] [...]) (S-down [...] [...]) (S-left [...] [...])
(S-right [...] [...]) (S-return [...] [...])) :if (lambda (x) (equal
(key-description ...) nkey)) nil)
find-if((lambda (x) (equal (key-description ...) nkey)) ((S-up [...] [...])
(S-down [...] [...]) (S-left [...] [...]) (S-right [...] [...]) (S-return [...]
[...])))
(let* ((nkey ...) (x ...)) (cond (... key) (org-replace-disputed-keys ...) (t
...)))
org-key([mouse-2])
(define-key keymap (org-key key) def)
org-defkey((keymap (13 . org-open-at-point) (return . org-open-at-point)
(follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse)) [mouse-2] org-open-at-mouse)
eval((org-defkey org-mouse-map (if (featurep ...) [button2] [mouse-2]) (quote
org-open-at-mouse)))
eval-last-sexp-1(nil)
eval-last-sexp(nil)
--
Bastien