From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Dr. Volker Zell" Subject: org-insert-link doesn't work on xemacs with org-5.02 Date: Thu, 12 Jul 2007 14:26:58 +0200 Message-ID: <82k5t524fh.fsf@vzell-de.de.oracle.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1I8xmm-0005XG-0k for emacs-orgmode@gnu.org; Thu, 12 Jul 2007 08:28:44 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1I8xmj-0005Uk-VC for emacs-orgmode@gnu.org; Thu, 12 Jul 2007 08:28:43 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1I8xmj-0005Ud-E5 for emacs-orgmode@gnu.org; Thu, 12 Jul 2007 08:28:41 -0400 Received: from rgminet01.oracle.com ([148.87.113.118]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1I8xmi-0001ZN-Fx for emacs-orgmode@gnu.org; Thu, 12 Jul 2007 08:28:40 -0400 Received: from rgmgw3.us.oracle.com (rgmgw3.us.oracle.com [138.1.186.112]) by rgminet01.oracle.com (Switch-3.2.4/Switch-3.1.6) with ESMTP id l6CCSPhP024913 for ; Thu, 12 Jul 2007 06:28:25 -0600 Received: from vzell-de.de.oracle.com (dhcp-emea-uk-csvpn-gw8-141-144-137-109.vpn.oracle.com [141.144.137.109]) by rgmgw3.us.oracle.com (Switch-3.2.4/Switch-3.1.7) with ESMTP id l6CCSLBu011689 for ; Thu, 12 Jul 2007 06:28:23 -0600 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: 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() #() 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