Hi Carsten, Carsten Dominik <[EMAIL PROTECTED]> 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 _______________________________________________ Emacs-orgmode mailing list Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
