bug-gnu-emacs
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#11466: ERC completion raises an assertion failure

From: Antoine Levitt
Subject: bug#11466: ERC completion raises an assertion failure
Date: Mon, 14 May 2012 09:46:11 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.1.50 (gnu/linux) 
Here's the full backtrace. To reproduce, simply connect to ERC (M-x erc,
accept everything, and press TAB twice on the server buffer)

Antoine

Debugger entered--Lisp error: (cl-assertion-failed (eq t (compare-strings 
(funcall unquote (concat (substring string 0 qboundary) qcompletion)) nil nil 
(concat (substring ustring 0 boundary) completion) nil nil (quote 
ignore-case))))
  signal(cl-assertion-failed ((eq t (compare-strings (funcall unquote (concat 
(substring string 0 qboundary) qcompletion)) nil nil (concat (substring ustring 
0 boundary) completion) nil nil (quote ignore-case)))))
  #[257 
"\310\304\311#\204\312\313\314\304E\"\210\211\304G\315O\305!\307P\316\303\300\317\306OP!\315\211\301\317\302OP\315\211\311&\320=\204=\312\313\321C\"\210\207"
 ["" "" 0 comint--unquote-argument "" comint-quote-filename 0 "" 
string-prefix-p ignore-case signal cl-assertion-failed (string-prefix-p prefix 
completion (quote ignore-case)) nil compare-strings 0 t (eq t (compare-strings 
(funcall unquote (concat (substring string 0 qboundary) qcompletion)) nil nil 
(concat (substring ustring 0 boundary) completion) nil nil (quote 
ignore-case)))] 12 "\n\n(fn COMPLETION)"](#("/me's" 0 1 (font-lock-face 
completions-first-difference)))
  mapcar(#[257 
"\310\304\311#\204\312\313\314\304E\"\210\211\304G\315O\305!\307P\316\303\300\317\306OP!\315\211\301\317\302OP\315\211\311&\320=\204=\312\313\321C\"\210\207"
 ["" "" 0 comint--unquote-argument "" comint-quote-filename 0 "" 
string-prefix-p ignore-case signal cl-assertion-failed (string-prefix-p prefix 
completion (quote ignore-case)) nil compare-strings 0 t (eq t (compare-strings 
(funcall unquote (concat (substring string 0 qboundary) qcompletion)) nil nil 
(concat (substring ustring 0 boundary) completion) nil nil (quote 
ignore-case)))] 12 "\n\n(fn COMPLETION)"] (#("/amsg" 0 1 (font-lock-face 
completions-first-difference)) #("/appendtopic" 0 1 (font-lock-face 
completions-first-difference)) #("/at" 0 1 (font-lock-face 
completions-first-difference)) #("/away" 0 1 (font-lock-face 
completions-first-difference)) #("/banlist" 0 1 (font-lock-face 
completions-first-difference)) #("/bl" 0 1 (font-lock-face 
completions-first-difference)) #("/bye" 0 1 (font-lock-face 
completions-first-difference)) #("/channel" 0 1 (font-lock-face 
completions-first-difference)) #("/clear" 0 1 (font-lock-face 
completions-first-difference)) #("/cleartopic" 0 1 (font-lock-face 
completions-first-difference)) #("/country" 0 1 (font-lock-face 
completions-first-difference)) #("/creq" 0 1 (font-lock-face 
completions-first-difference)) #("/ctcp" 0 1 (font-lock-face 
completions-first-difference)) #("/date" 0 1 (font-lock-face 
completions-first-difference)) #("/dcc" 0 1 (font-lock-face 
completions-first-difference)) #("/deop" 0 1 (font-lock-face 
completions-first-difference)) #("/describe" 0 1 (font-lock-face 
completions-first-difference)) #("/exit" 0 1 (font-lock-face 
completions-first-difference)) #("/gaway" 0 1 (font-lock-face 
completions-first-difference)) #("/gq" 0 1 (font-lock-face 
completions-first-difference)) #("/gquit" 0 1 (font-lock-face 
completions-first-difference)) #("/h" 0 1 (font-lock-face 
completions-first-difference)) #("/help" 0 1 (font-lock-face 
completions-first-difference)) #("/idle" 0 1 (font-lock-face 
completions-first-difference)) #("/ignore" 0 1 (font-lock-face 
completions-first-difference)) #("/j" 0 1 (font-lock-face 
completions-first-difference)) #("/join" 0 1 (font-lock-face 
completions-first-difference)) #("/kick" 0 1 (font-lock-face 
completions-first-difference)) #("/lastlog" 0 1 (font-lock-face 
completions-first-difference)) #("/leave" 0 1 (font-lock-face 
completions-first-difference)) #("/list" 0 1 (font-lock-face 
completions-first-difference)) #("/load" 0 1 (font-lock-face 
completions-first-difference)) #("/m" 0 1 (font-lock-face 
completions-first-difference)) #("/massunban" 0 1 (font-lock-face 
completions-first-difference)) #("/me" 0 1 (font-lock-face 
completions-first-difference)) #("/me's" 0 1 (font-lock-face 
completions-first-difference)) #("/mode" 0 1 (font-lock-face 
completions-first-difference)) #("/msg" 0 1 (font-lock-face 
completions-first-difference)) #("/mub" 0 1 (font-lock-face 
completions-first-difference)) #("/n" 0 1 (font-lock-face 
completions-first-difference)) #("/names" 0 1 (font-lock-face 
completions-first-difference)) #("/nick" 0 1 (font-lock-face 
completions-first-difference)) #("/notice" 0 1 (font-lock-face 
completions-first-difference)) #("/notify" 0 1 (font-lock-face 
completions-first-difference)) #("/op" 0 1 (font-lock-face 
completions-first-difference)) #("/ops" 0 1 (font-lock-face 
completions-first-difference)) #("/part" 0 1 (font-lock-face 
completions-first-difference)) #("/ping" 0 1 (font-lock-face 
completions-first-difference)) #("/q" 0 1 (font-lock-face 
completions-first-difference)) #("/query" 0 1 (font-lock-face 
completions-first-difference)) ...))
  completion--twq-all("" "" (#("/amsg" 0 1 (font-lock-face 
completions-first-difference)) #("/appendtopic" 0 1 (font-lock-face 
completions-first-difference)) #("/at" 0 1 (font-lock-face 
completions-first-difference)) #("/away" 0 1 (font-lock-face 
completions-first-difference)) #("/banlist" 0 1 (font-lock-face 
completions-first-difference)) #("/bl" 0 1 (font-lock-face 
completions-first-difference)) #("/bye" 0 1 (font-lock-face 
completions-first-difference)) #("/channel" 0 1 (font-lock-face 
completions-first-difference)) #("/clear" 0 1 (font-lock-face 
completions-first-difference)) #("/cleartopic" 0 1 (font-lock-face 
completions-first-difference)) #("/country" 0 1 (font-lock-face 
completions-first-difference)) #("/creq" 0 1 (font-lock-face 
completions-first-difference)) #("/ctcp" 0 1 (font-lock-face 
completions-first-difference)) #("/date" 0 1 (font-lock-face 
completions-first-difference)) #("/dcc" 0 1 (font-lock-face 
completions-first-difference)) #("/deop" 0 1 (font-lock-face 
completions-first-difference)) #("/describe" 0 1 (font-lock-face 
completions-first-difference)) #("/exit" 0 1 (font-lock-face 
completions-first-difference)) #("/gaway" 0 1 (font-lock-face 
completions-first-difference)) #("/gq" 0 1 (font-lock-face 
completions-first-difference)) #("/gquit" 0 1 (font-lock-face 
completions-first-difference)) #("/h" 0 1 (font-lock-face 
completions-first-difference)) #("/help" 0 1 (font-lock-face 
completions-first-difference)) #("/idle" 0 1 (font-lock-face 
completions-first-difference)) #("/ignore" 0 1 (font-lock-face 
completions-first-difference)) #("/j" 0 1 (font-lock-face 
completions-first-difference)) #("/join" 0 1 (font-lock-face 
completions-first-difference)) #("/kick" 0 1 (font-lock-face 
completions-first-difference)) #("/lastlog" 0 1 (font-lock-face 
completions-first-difference)) #("/leave" 0 1 (font-lock-face 
completions-first-difference)) #("/list" 0 1 (font-lock-face 
completions-first-difference)) #("/load" 0 1 (font-lock-face 
completions-first-difference)) #("/m" 0 1 (font-lock-face 
completions-first-difference)) #("/massunban" 0 1 (font-lock-face 
completions-first-difference)) #("/me" 0 1 (font-lock-face 
completions-first-difference)) #("/me's" 0 1 (font-lock-face 
completions-first-difference)) #("/mode" 0 1 (font-lock-face 
completions-first-difference)) #("/msg" 0 1 (font-lock-face 
completions-first-difference)) #("/mub" 0 1 (font-lock-face 
completions-first-difference)) #("/n" 0 1 (font-lock-face 
completions-first-difference)) #("/names" 0 1 (font-lock-face 
completions-first-difference)) #("/nick" 0 1 (font-lock-face 
completions-first-difference)) #("/notice" 0 1 (font-lock-face 
completions-first-difference)) #("/notify" 0 1 (font-lock-face 
completions-first-difference)) #("/op" 0 1 (font-lock-face 
completions-first-difference)) #("/ops" 0 1 (font-lock-face 
completions-first-difference)) #("/part" 0 1 (font-lock-face 
completions-first-difference)) #("/ping" 0 1 (font-lock-face 
completions-first-difference)) #("/q" 0 1 (font-lock-face 
completions-first-difference)) #("/query" 0 1 (font-lock-face 
completions-first-difference)) ...) 0 comint--unquote-argument 
comint--requote-argument)
  #[514 
"\211\304=\203\242;\204\207\305\302\303@A\300\301&\207\211\306=\203<\307!\211A\206)\310\205;\311\241\210\312\302\303\300\301&\207\311\207"
 [comint--unquote-argument comint--requote-argument "" "" 1 completion--twq-try 
2 last 0 nil completion--twq-all] 11 "\n\n(fn UNQUOTED-RESULT OP)"]((#("/amsg" 
0 1 (font-lock-face completions-first-difference)) #("/appendtopic" 0 1 
(font-lock-face completions-first-difference)) #("/at" 0 1 (font-lock-face 
completions-first-difference)) #("/away" 0 1 (font-lock-face 
completions-first-difference)) #("/banlist" 0 1 (font-lock-face 
completions-first-difference)) #("/bl" 0 1 (font-lock-face 
completions-first-difference)) #("/bye" 0 1 (font-lock-face 
completions-first-difference)) #("/channel" 0 1 (font-lock-face 
completions-first-difference)) #("/clear" 0 1 (font-lock-face 
completions-first-difference)) #("/cleartopic" 0 1 (font-lock-face 
completions-first-difference)) #("/country" 0 1 (font-lock-face 
completions-first-difference)) #("/creq" 0 1 (font-lock-face 
completions-first-difference)) #("/ctcp" 0 1 (font-lock-face 
completions-first-difference)) #("/date" 0 1 (font-lock-face 
completions-first-difference)) #("/dcc" 0 1 (font-lock-face 
completions-first-difference)) #("/deop" 0 1 (font-lock-face 
completions-first-difference)) #("/describe" 0 1 (font-lock-face 
completions-first-difference)) #("/exit" 0 1 (font-lock-face 
completions-first-difference)) #("/gaway" 0 1 (font-lock-face 
completions-first-difference)) #("/gq" 0 1 (font-lock-face 
completions-first-difference)) #("/gquit" 0 1 (font-lock-face 
completions-first-difference)) #("/h" 0 1 (font-lock-face 
completions-first-difference)) #("/help" 0 1 (font-lock-face 
completions-first-difference)) #("/idle" 0 1 (font-lock-face 
completions-first-difference)) #("/ignore" 0 1 (font-lock-face 
completions-first-difference)) #("/j" 0 1 (font-lock-face 
completions-first-difference)) #("/join" 0 1 (font-lock-face 
completions-first-difference)) #("/kick" 0 1 (font-lock-face 
completions-first-difference)) #("/lastlog" 0 1 (font-lock-face 
completions-first-difference)) #("/leave" 0 1 (font-lock-face 
completions-first-difference)) #("/list" 0 1 (font-lock-face 
completions-first-difference)) #("/load" 0 1 (font-lock-face 
completions-first-difference)) #("/m" 0 1 (font-lock-face 
completions-first-difference)) #("/massunban" 0 1 (font-lock-face 
completions-first-difference)) #("/me" 0 1 (font-lock-face 
completions-first-difference)) #("/me's" 0 1 (font-lock-face 
completions-first-difference)) #("/mode" 0 1 (font-lock-face 
completions-first-difference)) #("/msg" 0 1 (font-lock-face 
completions-first-difference)) #("/mub" 0 1 (font-lock-face 
completions-first-difference)) #("/n" 0 1 (font-lock-face 
completions-first-difference)) #("/names" 0 1 (font-lock-face 
completions-first-difference)) #("/nick" 0 1 (font-lock-face 
completions-first-difference)) #("/notice" 0 1 (font-lock-face 
completions-first-difference)) #("/notify" 0 1 (font-lock-face 
completions-first-difference)) #("/op" 0 1 (font-lock-face 
completions-first-difference)) #("/ops" 0 1 (font-lock-face 
completions-first-difference)) #("/part" 0 1 (font-lock-face 
completions-first-difference)) #("/ping" 0 1 (font-lock-face 
completions-first-difference)) #("/q" 0 1 (font-lock-face 
completions-first-difference)) #("/query" 0 1 (font-lock-face 
completions-first-difference)) ...) 2)
  completion--nth-completion(2 "" #[771 "\301?\303\300$)\207" [#[771 
"\211\303=\203\304\305\300#\306\"\207\211\307=\203\301!\310\300#\207\211\242\311=\203\201\301!A\312G!\2035\202:\301P!\313\"\204G\314\315\316C\"\210\317G\317O\320\300
       $\302@\n\"@\312A!\203f\321\202{AG\\\302\f    P\"@
GZ\262\311BB\207\211\317=\203\243\301!\322\300#\211;\204\230\211\202\242\323\321\301\302&@\207\211\324=\203\331\301!\325\300#\320\300\326$@\327\301\302&\330!\211:\203\317\211\317\241\210\262\262\262\262\207\211\331=\205\301!\301\321O!\313\"\204\365\314\315\332C\"\210\300G\333\334\335\336\337\301\302\f$\340\"\341\342%F\266\202\207"
 [("/amsg" "/appendtopic" "/at" "/away" "/banlist" "/bl" "/bye" "/channel" 
"/clear" "/cleartopic" "/country" "/creq" "/ctcp" "/date" "/dcc" "/deop" 
"/describe" "/exit" "/gaway" "/gq" "/gquit" "/h" "/help" "/idle" "/ignore" "/j" 
"/join" "/kick" "/lastlog" "/leave" "/list" "/load" "/m" "/massunban" "/me" 
"/me's" "/mode" "/msg" "/mub" "/n" "/names" "/nick" "/notice" "/notify" "/op" 
"/ops" "/part" "/ping" "/q" "/query" ...) comint--unquote-argument 
comint--requote-argument metadata append completion-metadata 
((completion--unquote-requote . t)) lambda test-completion boundaries zerop 
string-prefix-p signal cl-assertion-failed (string-prefix-p ustring ufull) nil 
completion-boundaries 0 try-completion completion--twq-try t all-completions "" 
completion--twq-all last completion--unquote (string-prefix-p uprefix ustring) 
make-byte-code 514 
"\211\304=\203\242;\204\207\305\302\303@A\300\301&\207\211\306=\203<\307!\211A\206)\310\205;\311\241\210\312\302\303\300\301&\207\311\207"
 vconcat vector [1 completion--twq-try 2 last 0 nil completion--twq-all] 11 
"\n\n(fn UNQUOTED-RESULT OP)"] 17 "\n\n(fn STRING PRED ACTION)"] nil 
completion-ignore-case complete-with-action] 8 "\n\n(fn STRING PRED ACTION)"] 
nil 0 (metadata (completion--unquote-requote . t)))
  completion-all-completions("" #[771 "\301?\303\300$)\207" [#[771 
"\211\303=\203\304\305\300#\306\"\207\211\307=\203\301!\310\300#\207\211\242\311=\203\201\301!A\312G!\2035\202:\301P!\313\"\204G\314\315\316C\"\210\317G\317O\320\300
 $\302@\n\"@\312A!\203f\321\202{AG\\\302\f    P\"@
GZ\262\311BB\207\211\317=\203\243\301!\322\300#\211;\204\230\211\202\242\323\321\301\302&@\207\211\324=\203\331\301!\325\300#\320\300\326$@\327\301\302&\330!\211:\203\317\211\317\241\210\262\262\262\262\207\211\331=\205\301!\301\321O!\313\"\204\365\314\315\332C\"\210\300G\333\334\335\336\337\301\302\f$\340\"\341\342%F\266\202\207"
 [("/amsg" "/appendtopic" "/at" "/away" "/banlist" "/bl" "/bye" "/channel" 
"/clear" "/cleartopic" "/country" "/creq" "/ctcp" "/date" "/dcc" "/deop" 
"/describe" "/exit" "/gaway" "/gq" "/gquit" "/h" "/help" "/idle" "/ignore" "/j" 
"/join" "/kick" "/lastlog" "/leave" "/list" "/load" "/m" "/massunban" "/me" 
"/me's" "/mode" "/msg" "/mub" "/n" "/names" "/nick" "/notice" "/notify" "/op" 
"/ops" "/part" "/ping" "/q" "/query" ...) comint--unquote-argument 
comint--requote-argument metadata append completion-metadata 
((completion--unquote-requote . t)) lambda test-completion boundaries zerop 
string-prefix-p signal cl-assertion-failed (string-prefix-p ustring ufull) nil 
completion-boundaries 0 try-completion completion--twq-try t all-completions "" 
completion--twq-all last completion--unquote (string-prefix-p uprefix ustring) 
make-byte-code 514 
"\211\304=\203\242;\204\207\305\302\303@A\300\301&\207\211\306=\203<\307!\211A\206)\310\205;\311\241\210\312\302\303\300\301&\207\311\207"
 vconcat vector [1 completion--twq-try 2 last 0 nil completion--twq-all] 11 
"\n\n(fn UNQUOTED-RESULT OP)"] 17 "\n\n(fn STRING PRED ACTION)"] nil 
completion-ignore-case complete-with-action] 8 "\n\n(fn STRING PRED ACTION)"] 
nil 0 (metadata (completion--unquote-requote . t)))
  minibuffer-completion-help()
  completion--do-completion()
  minibuffer-complete()
  call-interactively(minibuffer-complete)
  #[1028 
"\304\305\211\306%\305\262\305\262\307\310\311#\210\307\312\313#\210\n\2032\314\315!\210pF\316\317\320\321\322\323!\324\"\325\326%DC\216\327\330!+\207"
 [minibuffer-completion-predicate minibuffer-completion-table 
completion-in-region-mode-predicate completion-in-region--data make-overlay nil 
t overlay-put field completion priority 100 completion-in-region-mode 1 funcall 
make-byte-code 0 "\301\300!\207" vconcat vector [delete-overlay] 2 "\n\n(fn)" 
call-interactively minibuffer-complete] 14 "\n\n(fn START END COLLECTION 
PREDICATE)"](1801 1801 #[771 "\301?\303\300$)\207" [#[771 
"\211\303=\203\304\305\300#\306\"\207\211\307=\203\301!\310\300#\207\211\242\311=\203\201\301!A\312G!\2035\202:\301P!\313\"\204G\314\315\316C\"\210\317G\317O\320\300
    $\302@\n\"@\312A!\203f\321\202{AG\\\302\f    P\"@
GZ\262\311BB\207\211\317=\203\243\301!\322\300#\211;\204\230\211\202\242\323\321\301\302&@\207\211\324=\203\331\301!\325\300#\320\300\326$@\327\301\302&\330!\211:\203\317\211\317\241\210\262\262\262\262\207\211\331=\205\301!\301\321O!\313\"\204\365\314\315\332C\"\210\300G\333\334\335\336\337\301\302\f$\340\"\341\342%F\266\202\207"
 [("/amsg" "/appendtopic" "/at" "/away" "/banlist" "/bl" "/bye" "/channel" 
"/clear" "/cleartopic" "/country" "/creq" "/ctcp" "/date" "/dcc" "/deop" 
"/describe" "/exit" "/gaway" "/gq" "/gquit" "/h" "/help" "/idle" "/ignore" "/j" 
"/join" "/kick" "/lastlog" "/leave" "/list" "/load" "/m" "/massunban" "/me" 
"/me's" "/mode" "/msg" "/mub" "/n" "/names" "/nick" "/notice" "/notify" "/op" 
"/ops" "/part" "/ping" "/q" "/query" ...) comint--unquote-argument 
comint--requote-argument metadata append completion-metadata 
((completion--unquote-requote . t)) lambda test-completion boundaries zerop 
string-prefix-p signal cl-assertion-failed (string-prefix-p ustring ufull) nil 
completion-boundaries 0 try-completion completion--twq-try t all-completions "" 
completion--twq-all last completion--unquote (string-prefix-p uprefix ustring) 
make-byte-code 514 
"\211\304=\203\242;\204\207\305\302\303@A\300\301&\207\211\306=\203<\307!\211A\206)\310\205;\311\241\210\312\302\303\300\301&\207\311\207"
 vconcat vector [1 completion--twq-try 2 last 0 nil completion--twq-all] 11 
"\n\n(fn UNQUOTED-RESULT OP)"] 17 "\n\n(fn STRING PRED ACTION)"] nil 
completion-ignore-case complete-with-action] 8 "\n\n(fn STRING PRED ACTION)"] 
nil)
  apply(#[1028 
"\304\305\211\306%\305\262\305\262\307\310\311#\210\307\312\313#\210\n\2032\314\315!\210pF\316\317\320\321\322\323!\324\"\325\326%DC\216\327\330!+\207"
 [minibuffer-completion-predicate minibuffer-completion-table 
completion-in-region-mode-predicate completion-in-region--data make-overlay nil 
t overlay-put field completion priority 100 completion-in-region-mode 1 funcall 
make-byte-code 0 "\301\300!\207" vconcat vector [delete-overlay] 2 "\n\n(fn)" 
call-interactively minibuffer-complete] 14 "\n\n(fn START END COLLECTION 
PREDICATE)"] (1801 1801 #[771 "\301?\303\300$)\207" [#[771 
"\211\303=\203\304\305\300#\306\"\207\211\307=\203\301!\310\300#\207\211\242\311=\203\201\301!A\312G!\2035\202:\301P!\313\"\204G\314\315\316C\"\210\317G\317O\320\300
     $\302@\n\"@\312A!\203f\321\202{AG\\\302\f    P\"@
GZ\262\311BB\207\211\317=\203\243\301!\322\300#\211;\204\230\211\202\242\323\321\301\302&@\207\211\324=\203\331\301!\325\300#\320\300\326$@\327\301\302&\330!\211:\203\317\211\317\241\210\262\262\262\262\207\211\331=\205\301!\301\321O!\313\"\204\365\314\315\332C\"\210\300G\333\334\335\336\337\301\302\f$\340\"\341\342%F\266\202\207"
 [("/amsg" "/appendtopic" "/at" "/away" "/banlist" "/bl" "/bye" "/channel" 
"/clear" "/cleartopic" "/country" "/creq" "/ctcp" "/date" "/dcc" "/deop" 
"/describe" "/exit" "/gaway" "/gq" "/gquit" "/h" "/help" "/idle" "/ignore" "/j" 
"/join" "/kick" "/lastlog" "/leave" "/list" "/load" "/m" "/massunban" "/me" 
"/me's" "/mode" "/msg" "/mub" "/n" "/names" "/nick" "/notice" "/notify" "/op" 
"/ops" "/part" "/ping" "/q" "/query" ...) comint--unquote-argument 
comint--requote-argument metadata append completion-metadata 
((completion--unquote-requote . t)) lambda test-completion boundaries zerop 
string-prefix-p signal cl-assertion-failed (string-prefix-p ustring ufull) nil 
completion-boundaries 0 try-completion completion--twq-try t all-completions "" 
completion--twq-all last completion--unquote (string-prefix-p uprefix ustring) 
make-byte-code 514 
"\211\304=\203\242;\204\207\305\302\303@A\300\301&\207\211\306=\203<\307!\211A\206)\310\205;\311\241\210\312\302\303\300\301&\207\311\207"
 vconcat vector [1 completion--twq-try 2 last 0 nil completion--twq-all] 11 
"\n\n(fn UNQUOTED-RESULT OP)"] 17 "\n\n(fn STRING PRED ACTION)"] nil 
completion-ignore-case complete-with-action] 8 "\n\n(fn STRING PRED ACTION)"] 
nil))
  #[771 
":\2030@\301=\203\300@\302A\"\303#\207\304@\305\306\307\310\311\312\300!\313\"\314\315%A##\207\304\316\"\207"
 [(#0) t append nil apply apply-partially make-byte-code 642 "\300@#\207" 
vconcat vector [] 7 "\n\n(fn FUNS GLOBAL &rest ARGS)" #[1028 
"\304\305\211\306%\305\262\305\262\307\310\311#\210\307\312\313#\210\n\2032\314\315!\210pF\316\317\320\321\322\323!\324\"\325\326%DC\216\327\330!+\207"
 [minibuffer-completion-predicate minibuffer-completion-table 
completion-in-region-mode-predicate completion-in-region--data make-overlay nil 
t overlay-put field completion priority 100 completion-in-region-mode 1 funcall 
make-byte-code 0 "\301\300!\207" vconcat vector [delete-overlay] 2 "\n\n(fn)" 
call-interactively minibuffer-complete] 14 "\n\n(fn START END COLLECTION 
PREDICATE)"]] 12 "\n\n(fn FUNS GLOBAL ARGS)"](nil nil (1801 1801 #[771 
"\301?\303\300$)\207" [#[771 
"\211\303=\203\304\305\300#\306\"\207\211\307=\203\301!\310\300#\207\211\242\311=\203\201\301!A\312G!\2035\202:\301P!\313\"\204G\314\315\316C\"\210\317G\317O\320\300
 $\302@\n\"@\312A!\203f\321\202{AG\\\302\f    P\"@
GZ\262\311BB\207\211\317=\203\243\301!\322\300#\211;\204\230\211\202\242\323\321\301\302&@\207\211\324=\203\331\301!\325\300#\320\300\326$@\327\301\302&\330!\211:\203\317\211\317\241\210\262\262\262\262\207\211\331=\205\301!\301\321O!\313\"\204\365\314\315\332C\"\210\300G\333\334\335\336\337\301\302\f$\340\"\341\342%F\266\202\207"
 [("/amsg" "/appendtopic" "/at" "/away" "/banlist" "/bl" "/bye" "/channel" 
"/clear" "/cleartopic" "/country" "/creq" "/ctcp" "/date" "/dcc" "/deop" 
"/describe" "/exit" "/gaway" "/gq" "/gquit" "/h" "/help" "/idle" "/ignore" "/j" 
"/join" "/kick" "/lastlog" "/leave" "/list" "/load" "/m" "/massunban" "/me" 
"/me's" "/mode" "/msg" "/mub" "/n" "/names" "/nick" "/notice" "/notify" "/op" 
"/ops" "/part" "/ping" "/q" "/query" ...) comint--unquote-argument 
comint--requote-argument metadata append completion-metadata 
((completion--unquote-requote . t)) lambda test-completion boundaries zerop 
string-prefix-p signal cl-assertion-failed (string-prefix-p ustring ufull) nil 
completion-boundaries 0 try-completion completion--twq-try t all-completions "" 
completion--twq-all last completion--unquote (string-prefix-p uprefix ustring) 
make-byte-code 514 
"\211\304=\203\242;\204\207\305\302\303@A\300\301&\207\211\306=\203<\307!\211A\206)\310\205;\311\241\210\312\302\303\300\301&\207\311\207"
 vconcat vector [1 completion--twq-try 2 last 0 nil completion--twq-all] 11 
"\n\n(fn UNQUOTED-RESULT OP)"] 17 "\n\n(fn STRING PRED ACTION)"] nil 
completion-ignore-case complete-with-action] 8 "\n\n(fn STRING PRED ACTION)"] 
nil))
  completion-in-region(1801 1801 #[771 "\301?\303\300$)\207" [#[771 
"\211\303=\203\304\305\300#\306\"\207\211\307=\203\301!\310\300#\207\211\242\311=\203\201\301!A\312G!\2035\202:\301P!\313\"\204G\314\315\316C\"\210\317G\317O\320\300
        $\302@\n\"@\312A!\203f\321\202{AG\\\302\f    P\"@
GZ\262\311BB\207\211\317=\203\243\301!\322\300#\211;\204\230\211\202\242\323\321\301\302&@\207\211\324=\203\331\301!\325\300#\320\300\326$@\327\301\302&\330!\211:\203\317\211\317\241\210\262\262\262\262\207\211\331=\205\301!\301\321O!\313\"\204\365\314\315\332C\"\210\300G\333\334\335\336\337\301\302\f$\340\"\341\342%F\266\202\207"
 [("/amsg" "/appendtopic" "/at" "/away" "/banlist" "/bl" "/bye" "/channel" 
"/clear" "/cleartopic" "/country" "/creq" "/ctcp" "/date" "/dcc" "/deop" 
"/describe" "/exit" "/gaway" "/gq" "/gquit" "/h" "/help" "/idle" "/ignore" "/j" 
"/join" "/kick" "/lastlog" "/leave" "/list" "/load" "/m" "/massunban" "/me" 
"/me's" "/mode" "/msg" "/mub" "/n" "/names" "/nick" "/notice" "/notify" "/op" 
"/ops" "/part" "/ping" "/q" "/query" ...) comint--unquote-argument 
comint--requote-argument metadata append completion-metadata 
((completion--unquote-requote . t)) lambda test-completion boundaries zerop 
string-prefix-p signal cl-assertion-failed (string-prefix-p ustring ufull) nil 
completion-boundaries 0 try-completion completion--twq-try t all-completions "" 
completion--twq-all last completion--unquote (string-prefix-p uprefix ustring) 
make-byte-code 514 
"\211\304=\203\242;\204\207\305\302\303@A\300\301&\207\211\306=\203<\307!\211A\206)\310\205;\311\241\210\312\302\303\300\301&\207\311\207"
 vconcat vector [1 completion--twq-try 2 last 0 nil completion--twq-all] 11 
"\n\n(fn UNQUOTED-RESULT OP)"] 17 "\n\n(fn STRING PRED ACTION)"] nil 
completion-ignore-case complete-with-action] 8 "\n\n(fn STRING PRED ACTION)"] 
nil)
  ad-Orig-completion-at-point()
  completion-at-point()
  call-interactively(completion-at-point nil nil)
reply via email to
[Prev in Thread] Current Thread [Next in Thread]