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

[Carsten Dominik]

On Jul 12, 2007, at 14:26, Dr. Volker Zell wrote:

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


Yes, looks like XEmacs is more picky about the completion table
passed to its completion functions.

Fixed for 5.03, thanks.

- Carsten


> 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
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477