emacs-orgmode
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]