From: Dave Goldberg <david.goldberg6@verizon.net>
To: ding@gnus.org
Subject: Re: gnus-completing-read vs XEmacs 21.4
Date: Mon, 04 Oct 2010 11:20:30 -0400 [thread overview]
Message-ID: <8462xiugqp.fsf@davestoy.home> (raw)
In-Reply-To: <sa37hhygha1.fsf@cigue.easter-eggs.fr> (Julien Danjou's message of "Mon, 04 Oct 2010 16:32:38 +0200")
> No, it's rather a code path I did not test, since there's a lot and some
> of them I do/can not use.
> Could you send me a backtrace when this happens so I can push a fix?
Here you go. This when trying to copy an article to another group.
Debugger entered--Lisp error: (wrong-type-argument listp "nnml:emunah")
all-completions("nnml:sof" ("nnml:emunah" "nnml:mm" "nnml:vv" "nnml:temple" "nnml:spam" "nnml:business" "nnml:bbdb-digest" "nndoc+/home/dsg/dslmsg.mbox:dslmsg.mbox" "nnml:friends" "nnml:personal" "nnml:misc" "nnml:software" "nnml:personal.molly" "nndraft:drafts" "nnml:personal.the_browns" "nnml:inbox.mm" "nndraft:queue" "nnml:family" "nnml:ding-list" "nnml:inbox" "nnml:itac") nil)
(setq poss (all-completions str table pred))
(if (not (setq p ...)) (setq poss (all-completions str table pred)) (let (...) (setq p compl) (while p ... ...)))
(if (and (eq mode ...) (PC-is-complete-p str table pred)) (quote complete) (setq dirlength (if filename ... 0)) (and filename (not ...) (progn ... ... ...)) (or (equal PC-word-delimiters PC-delims) (setq PC-delims PC-word-delimiters PC-delim-regex ... PC-ndelims-regex ... PC-delims-list ...)) (and filename (string-match "\\*.*/" str) (let ... ... ... ... ...)) (if filename (if incname ... ...) (setq basestr str)) (setq regex (regexp-quote basestr) offset (if ... 1 0) p offset) (while (setq p ...) (if ... ... ...)) (setq p 0) (if filename (while ... ...)) (setq regex (concat "\\`" regex)) (if (not ...) (setq poss ...) (let ... ... ...)) (cond (... ...) (... ... ... ... ... ...) (t ... t)))
(let* ((table minibuffer-completion-table) (pred minibuffer-completion-predicate) (filename ...) (dirname nil) dirlength (str ...) (incname ...) (ambig nil) basestr regex p offset (poss nil) helpposs (case-fold-search completion-ignore-case)) (if (and ... ...) (quote complete) (setq dirlength ...) (and filename ... ...) (or ... ...) (and filename ... ...) (if filename ... ...) (setq regex ... offset ... p offset) (while ... ...) (setq p 0) (if filename ...) (setq regex ...) (if ... ... ...) (cond ... ... ...)))
PC-do-completion(nil)
(if (and window (window-buffer window) (buffer-name ...)) (save-excursion (set-buffer ...) (if ... ... ...)) (PC-do-completion nil))
(let ((window minibuffer-scroll-window)) (if (and window ... ...) (save-excursion ... ...) (PC-do-completion nil)))
(if (PC-was-meta-key) (minibuffer-complete) (or (eq last-command this-command) (setq minibuffer-scroll-window nil)) (let (...) (if ... ... ...)))
(lambda nil "Like minibuffer-complete, but allows \"b--di\"-style abbreviations.\nFor example, \"M-x b--di\" would match `byte-recompile-directory', or any\nname which consists of three or more words, the first beginning with \"b\"\nand the third beginning with \"di\".\n\nThe pattern \"b--d\" is ambiguous for `byte-recompile-directory' and\n`beginning-of-defun', so this would produce a list of completions\njust like when normal Emacs completions are ambiguous.\n\nWord-delimiters for the purposes of Partial Completion are \"-\", \"_\",\n\".\", and SPC." (interactive) (if (PC-was-meta-key) (minibuffer-complete) (or ... ...) (let ... ...)))()
call-interactively(PC-complete)
read-minibuffer-internal("Copy this article to (default nnml:inbox): ")
byte-code("..." [standard-output standard-input prompt recursion-depth minibuffer-depth t read-minibuffer-internal] 2)
read-from-minibuffer("Copy this article to (default nnml:inbox): " "nnml:" #<keymap minibuffer-local-completion-map size 16 0xdaf> nil gnus-group-history nil "nnml:inbox")
completing-read("Copy this article to (default nnml:inbox): " ("nnml:emunah" "nnml:mm" "nnml:vv" "nnml:temple" "nnml:spam" "nnml:business" "nnml:bbdb-digest" "nndoc+/home/dsg/dslmsg.mbox:dslmsg.mbox" "nnml:friends" "nnml:personal" "nnml:misc" "nnml:software" "nnml:personal.molly" "nndraft:drafts" "nnml:personal.the_browns" "nnml:inbox.mm" "nndraft:queue" "nnml:family" "nnml:ding-list" "nnml:inbox" "nnml:itac") nil nil "nnml:" gnus-group-history "nnml:inbox")
gnus-std-completing-read("Copy this article to (default nnml:inbox): " ("nnml:emunah" "nnml:mm" "nnml:vv" "nnml:temple" "nnml:spam" "nnml:business" "nnml:bbdb-digest" "nndoc+/home/dsg/dslmsg.mbox:dslmsg.mbox" "nnml:friends" "nnml:personal" "nnml:misc" "nnml:software" "nnml:personal.molly" "nndraft:drafts" "nnml:personal.the_browns" "nnml:inbox.mm" "nndraft:queue" "nnml:family" "nnml:ding-list" "nnml:inbox" "nnml:itac") nil "nnml:" gnus-group-history "nnml:inbox")
gnus-completing-read("Copy this article to" ("nnml:emunah" "nnml:mm" "nnml:vv" "nnml:temple" "nnml:spam" "nnml:business" "nnml:bbdb-digest" "nndoc+/home/dsg/dslmsg.mbox:dslmsg.mbox" "nnml:friends" "nnml:personal" "nnml:misc" "nnml:software" "nnml:personal.molly" "nndraft:drafts" "nnml:personal.the_browns" "nnml:inbox.mm" "nndraft:queue" "nnml:family" "nnml:ding-list" "nnml:inbox" "nnml:itac") nil "nnml:" gnus-group-history "nnml:inbox")
gnus-group-completing-read("Copy this article to" [nnml:emunah nnml:mm nnml:vv nnml:temple nnml:spam nnml:business nnml:bbdb-digest nndoc+/home/dsg/dslmsg\.mbox:dslmsg\.mbox nnml:friends nnml:personal nnml:misc nnml:software nnml:personal\.molly nndraft:drafts nnml:personal\.the_browns nnml:inbox\.mm nndraft:queue nnml:family nnml:ding-list nnml:inbox nnml:itac] nil "nnml:" gnus-group-history "nnml:inbox")
gnus-read-move-group-name("Copy" nil (11592) "nnml:")
gnus-summary-move-article(nil nil nil copy)
gnus-summary-copy-article(nil)
call-interactively(gnus-summary-copy-article)
--
Dave Goldberg
david.goldberg6@verizon.net
next prev parent reply other threads:[~2010-10-04 15:20 UTC|newest]
Thread overview: 18+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-10-04 14:20 Dave Goldberg
2010-10-04 14:32 ` Julien Danjou
2010-10-04 15:20 ` Dave Goldberg [this message]
2010-10-04 15:29 ` Julien Danjou
2010-10-04 15:38 ` Dave Goldberg
2010-10-04 16:04 ` Dave Goldberg
2010-10-04 16:08 ` Julien Danjou
2010-10-04 16:25 ` Lawrence Mitchell
2010-10-04 16:31 ` Dave Goldberg
2010-10-04 16:35 ` Lawrence Mitchell
2010-10-04 16:37 ` Julien Danjou
2010-10-04 16:54 ` Lawrence Mitchell
2010-10-04 17:47 ` Julien Danjou
2010-10-04 18:28 ` Dave Goldberg
2010-10-04 20:18 ` Julien Danjou
2010-10-04 21:55 ` Dave Goldberg
2010-10-08 12:14 ` Andrew Cohen
2010-10-08 14:35 ` Julien Danjou
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=8462xiugqp.fsf@davestoy.home \
--to=david.goldberg6@verizon.net \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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 NNTP newsgroup(s).