emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] org-insert-link doesn't work on xemacs with org-5.02


From: Dr. Volker Zell
Subject: [Orgmode] org-insert-link doesn't work on xemacs with org-5.02
Date: Thu, 12 Jul 2007 14:26:58 +0200

Hi

When trying to insert a link I get the following error with latest org-5.02 and 
xemacs:

Debugger entered--Lisp error: (wrong-type-argument listp "http:")
  apply(debug error (wrong-type-argument listp "http:"))
  edebug(error (wrong-type-argument listp "http:"))
  all-completions("l" ("http:" "https:" "ftp:" "mailto:"; "file:" "news:"; 
"bbdb:" "vm:" "wl:" "mhe:" "rmail:" "gnus:" "shell:" "info:" "elisp:") nil)
  hc-complete-stack-top("" nil t)
  hc-complete()
  #<compiled-function nil "...(15)" [last-command-char hc-stack char-to-string 
hc-complete] 3 
("/usr/local/share/xemacs/site-packages/lisp/misc/highlight-completion.elc" . 
15857) nil>()
  call-interactively(hc-self-insert-char)
  read-minibuffer-internal("Link: ")
  byte-code("..." [standard-output standard-input prompt recursion-depth 
minibuffer-depth t read-minibuffer-internal] 2)
  read-from-minibuffer("Link: " nil #<keymap size 8 0xb992> nil tmphist nil nil)
  completing-read("Link: " ("http:" "https:" "ftp:" "mailto:"; "file:" "news:"; 
"bbdb:" "vm:" "wl:" "mhe:" "rmail:" "gnus:" "shell:" "info:" "elisp:") nil nil 
nil tmphist nil)
  apply(completing-read ("Link: " ("http:" "https:" "ftp:" "mailto:"; "file:" 
"news:"; "bbdb:" "vm:" "wl:" "mhe:" "rmail:" "gnus:" "shell:" "info:" "elisp:") 
nil nil nil tmphist nil))
  (let ((minibuffer-local-completion-map ...)) (org-defkey 
minibuffer-local-completion-map " " (quote self-insert-command)) (apply (quote 
completing-read) args))
  org-completing-read("Link: " ("http:" "https:" "ftp:" "mailto:"; "file:" 
"news:"; "bbdb:" "vm:" "wl:" "mhe:" "rmail:" "gnus:" "shell:" "info:" "elisp:") 
nil nil nil tmphist nil)
  (edebug-after (edebug-before 184) 203 (org-completing-read "Link: " 
(edebug-after ... 195 ...) nil nil nil (quote tmphist) (edebug-after ... 202 
...)))
  (setq link (edebug-after (edebug-before 184) 203 (org-completing-read "Link: 
" ... nil nil nil ... ...)))
  (edebug-after (edebug-before 183) 204 (setq link (edebug-after ... 203 ...)))
  (unwind-protect (edebug-after (edebug-before 183) 204 (setq link ...)) 
(edebug-after (edebug-before 205) 207 (set-window-configuration ...)) 
(edebug-after (edebug-before 208) 209 (kill-buffer "*Org Links*")))
  (edebug-after (edebug-before 182) 210 (unwind-protect (edebug-after ... 204 
...) (edebug-after ... 207 ...) (edebug-after ... 209 ...)))
  (cond ((edebug-after ... 24 ...) (edebug-after ... 32 ...) (edebug-after ... 
40 ...) (edebug-after ... 48 ...)) ((edebug-after ... 56 ...) (edebug-after ... 
70 ...)) ((edebug-after ... 73 ...) (edebug-after ... 77 ...) (edebug-after ... 
142 ...)) (t (edebug-after ... 158 ...) (edebug-after ... 173 ...) 
(edebug-after ... 181 ...) (edebug-after ... 210 ...) (edebug-after ... 216 
...) (edebug-after ... 223 ...) (edebug-after ... 244 ...) (edebug-after ... 
260 ...)))
  (edebug-after (edebug-before 21) 261 (cond (... ... ... ...) (... ...) (... 
... ...) (t ... ... ... ... ... ... ... ...)))
  (let ((wcf ...) (region ...) tmphist link desc entry remove file) 
(edebug-after (edebug-before 21) 261 (cond ... ... ... ...)) (edebug-after 
(edebug-before 262) 274 (if ... ...)) (edebug-after (edebug-before 275) 305 
(when ... ...)) (edebug-after (edebug-before 306) 374 (when ... ...)) 
(edebug-after (edebug-before 375) 379 (setq desc ...)) (edebug-after 
(edebug-before 380) 386 (unless ... ...)) (edebug-after (edebug-before 387) 392 
(if ... ...)) (edebug-after (edebug-before 393) 398 (insert ...)))
  (edebug-after (edebug-before 0) 399 (let (... ... tmphist link desc entry 
remove file) (edebug-after ... 261 ...) (edebug-after ... 274 ...) 
(edebug-after ... 305 ...) (edebug-after ... 374 ...) (edebug-after ... 379 
...) (edebug-after ... 386 ...) (edebug-after ... 392 ...) (edebug-after ... 
398 ...)))
  (lambda nil (edebug-after (edebug-before 0) 399 (let ... ... ... ... ... ... 
... ... ...)))()
  edebug-enter(org-insert-link (nil) (lambda nil (edebug-after (edebug-before 
0) 399 (let ... ... ... ... ... ... ... ... ...))))
  edebug-enter(org-insert-link (nil) (lambda nil (edebug-after (edebug-before 
0) 399 (let ... ... ... ... ... ... ... ... ...))))
  org-insert-link(nil)
  call-interactively(org-insert-link)

  Ciao
    Volker
    




reply via email to

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