* org-insert-link doesn't work on xemacs with org-5.02
@ 2007-07-12 12:26 Dr. Volker Zell
2007-07-12 19:21 ` Carsten Dominik
0 siblings, 1 reply; 2+ messages in thread
From: Dr. Volker Zell @ 2007-07-12 12:26 UTC (permalink / raw)
To: Org mode
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
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: org-insert-link doesn't work on xemacs with org-5.02
2007-07-12 12:26 org-insert-link doesn't work on xemacs with org-5.02 Dr. Volker Zell
@ 2007-07-12 19:21 ` Carsten Dominik
0 siblings, 0 replies; 2+ messages in thread
From: Carsten Dominik @ 2007-07-12 19:21 UTC (permalink / raw)
To: Dr. Volker Zell; +Cc: Org mode
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
> Emacs-orgmode@gnu.org
> 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
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2007-07-12 20:08 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2007-07-12 12:26 org-insert-link doesn't work on xemacs with org-5.02 Dr. Volker Zell
2007-07-12 19:21 ` Carsten Dominik
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).