PC-complete broken is CVS HEAD

PC-complete broken is CVS HEAD

[Manoj Srivastava]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=us-ascii, Size: 1053 bytes --]

Hi,



<escape> x p a r t i a l - c o m <tab> <return> <escape>
x s e t - v a r <tab> <return> d e b u g - o n - e
r r <tab> <return> t <return> C-x C-f e <tab> <help-echo>
<help-echo> <down-mouse-1> <mouse-1> C-h l

Debugger entered--Lisp error: (wrong-type-argument listp 2)
  delete-dups(("etc/" "e-QIP_Investigation_Request_3112480_Archival_Copy.pdf" "e-QIP_Timelines.doc" "extra_sources.sql" "e-QIP_Investigation_Request_3112480_Signature_Forms.pdf" "example.txt" "eve_000066_all.deb" "examples/" "example.txt~" . 2))
  PC-do-completion(nil)
  PC-complete()
  call-interactively(PC-complete nil nil)
  read-file-name("Find file: " nil "~/" nil)
  find-file-read-args("Find file: " nil)
  byte-code("ÁÂ\b…\a.Ã\"‡" [find-file-confirm-nonexistent-file find-file-read-args "Find file: " confirm-only] 3)
  call-interactively(find-file nil nil)


        manoj
-- 
Blame Saint Andreas -- it's all his fault.
Manoj Srivastava <srivasta@acm.org> <http://www.golden-gryphon.com/>  
1024D/BF24424C print 4966 F272 D093 B493 410B  924B 21BA DABB BF24 424C

Re: PC-complete broken is CVS HEAD

[Manoj Srivastava]

Hi,

        A better trace back after loading all the .el files:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument listp 2)
  car(2)
  (delete (car tail) (cdr tail))
  (setcdr tail (delete (car tail) (cdr tail)))
  (while tail (setcdr tail (delete ... ...)) (setq tail (cdr tail)))
  (let ((tail list)) (while tail (setcdr tail ...) (setq tail ...)))
  delete-dups(("etc/" "e-QIP_Investigation_Request_3112480_Archival_Copy.pdf" "e-QIP_Timelines.doc" "extra_sources.sql" "e-QIP_Investigation_Request_3112480_Signature_Forms.pdf" "example.txt" "eve_000066_all.deb" "examples/" "example.txt~" . 2))
  PC-do-completion(nil)
  PC-complete()
  call-interactively(PC-complete nil nil)
  read-file-name("Find file: " nil "~/" nil)
  (progn (add-hook (quote minibuffer-setup-hook) setup-hook) (read-file-name prompt nil default-directory mustmatch))
  (unwind-protect (progn (add-hook ... setup-hook) (read-file-name prompt nil default-directory mustmatch)) (remove-hook (quote minibuffer-setup-hook) setup-hook))
  (let (setup-hook) (setq setup-hook (lambda nil ... ...)) (unwind-protect (progn ... ...) (remove-hook ... setup-hook)))
  (minibuffer-with-setup-hook (lambda nil (setq minibuffer-default find-file-default)) (read-file-name prompt nil default-directory mustmatch))
  (let ((find-file-default ...)) (minibuffer-with-setup-hook (lambda nil ...) (read-file-name prompt nil default-directory mustmatch)))
  (list (let (...) (minibuffer-with-setup-hook ... ...)) t)
  find-file-read-args("Find file: " nil)
  call-interactively(find-file nil nil)
--8<---------------cut here---------------end--------------->8---

        manoj
-- 
If God had intended Man to Smoke, He would have set him on Fire.
Manoj Srivastava <srivasta@acm.org> <http://www.golden-gryphon.com/>  
1024D/BF24424C print 4966 F272 D093 B493 410B  924B 21BA DABB BF24 424C

Re: PC-complete broken is CVS HEAD

[Stefan Monnier]

> Debugger entered--Lisp error: (wrong-type-argument listp 2)
[...]
>   PC-do-completion(nil)
>   PC-complete()

Should be fixed now, thank you,


        Stefan