From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: org-insert-link doesn't work on xemacs with org-5.02 Date: Thu, 12 Jul 2007 21:21:21 +0200 Message-ID: <0dccbdc79693865181277d10815d2a22@science.uva.nl> References: <82k5t524fh.fsf@vzell-de.de.oracle.com> Mime-Version: 1.0 (Apple Message framework v624) Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1I94xK-00056j-V2 for emacs-orgmode@gnu.org; Thu, 12 Jul 2007 16:08:07 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1I94xJ-00053z-D3 for emacs-orgmode@gnu.org; Thu, 12 Jul 2007 16:08:06 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1I94xJ-00053p-8L for emacs-orgmode@gnu.org; Thu, 12 Jul 2007 16:08:05 -0400 Received: from korteweg.uva.nl ([146.50.98.70]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1I94xI-0005Vu-Ps for emacs-orgmode@gnu.org; Thu, 12 Jul 2007 16:08:05 -0400 In-Reply-To: <82k5t524fh.fsf@vzell-de.de.oracle.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org 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() > # 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 # 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