bug#1059: 23.0.60; Error When Trying to Access Remote Files

bug#1059: 23.0.60; Error When Trying to Access Remote Files

[Florian Beck]

Emacs CVS »just now«

I have problems accessing remote files in the way described in the
info manual. It worked in the past and I can connect via command line
ftp.

The error message is not really helpful, so I have no idea how to
investigate further.

emacs -Q

(setq debug-on-error t)
C-x C-f /ftp:www.fbeck.net@ftp.strato.de:
[TAB]

Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
  signal(wrong-type-argument (char-or-string-p nil))
  completion--some(#[(style) "\b	A@\n\v\f$" [style completion-styles-alist
string table pred point] 5] (basic partial-completion))
  completion-try-completion("/ftp:www.fbeck.net@ftp.strato.de:"
read-file-name-internal nil 33)
  completion--do-completion()
  minibuffer-complete()
  call-interactively(minibuffer-complete nil nil)
  completing-read("Find file: " read-file-name-internal nil nil
"~/Material/src/emacs/" file-name-history "~/Material/src/emacs/")
  read-file-name("Find file: " nil "~/Material/src/emacs/" 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)

C-x C-f /ftp:www.fbeck.net@ftp.strato.de:/index.html [an existing file]
[TAB]

Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
  signal(wrong-type-argument (char-or-string-p nil))
  byte-code("\b@\bA\"" [err signal] 3)
  ange-ftp-hook-function(file-directory-p
"/ftp:www.fbeck.net@ftp.strato.de:/index.html")
  apply(ange-ftp-hook-function file-directory-p
"/ftp:www.fbeck.net@ftp.strato.de:/index.html")
  tramp-ftp-file-name-handler(file-directory-p
"/ftp:www.fbeck.net@ftp.strato.de:/index.html")
  apply(tramp-ftp-file-name-handler file-directory-p
"/ftp:www.fbeck.net@ftp.strato.de:/index.html")
  tramp-file-name-handler(file-directory-p
"/ftp:www.fbeck.net@ftp.strato.de:/index.html")
  file-directory-p("/ftp:www.fbeck.net@ftp.strato.de:/index.html")
  find-file-noselect("/ftp:www.fbeck.net@ftp.strato.de:/index.html" nil
nil t)
  find-file("/ftp:www.fbeck.net@ftp.strato.de:/index.html" t)
  call-interactively(find-file nil nil)

bug#1059: 23.0.60; Error When Trying to Access Remote Files

[Chong Yidong]

> emacs -Q

> (setq debug-on-error t)
> C-x C-f /ftp:www.fbeck.net@ftp.strato.de:
> [TAB]

> Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
>   signal(wrong-type-argument (char-or-string-p nil))
>   completion--some(#[(style) "^H A@\n^K\f$" [style
>   completion-styles-alist

I can't reproduce this, also using latest CVS and `emacs -Q'.  Could you
try to debug the problem?

bug#1059: 23.0.60; Error When Trying to Access Remote Files

[Florian Beck]

On Tue, 2008-09-30 at 13:20 -0400, Chong Yidong wrote:
> > emacs -Q
> 
> > (setq debug-on-error t)
> > C-x C-f /ftp:www.fbeck.net@ftp.strato.de:
> > [TAB]
> 
> > Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
> >   signal(wrong-type-argument (char-or-string-p nil))
> >   completion--some(#[(style) "^H A@\n^K\f$" [style
> >   completion-styles-alist
> 
> I can't reproduce this, also using latest CVS and `emacs -Q'.  Could you
> try to debug the problem?

Not sure. What should I do?

bug#1059: 23.0.60; Error When Trying to Access Remote Files

[Chong Yidong]

Florian Beck <abstraktion@t-online.de> writes:

> On Tue, 2008-09-30 at 13:20 -0400, Chong Yidong wrote:
>> > emacs -Q
>> 
>> > (setq debug-on-error t)
>> > C-x C-f /ftp:www.fbeck.net@ftp.strato.de:
>> > [TAB]
>> 
>> > Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
>> >   signal(wrong-type-argument (char-or-string-p nil))
>> >   completion--some(#[(style) "^H A@\n^K\f$" [style
>> >   completion-styles-alist
>> 
>> I can't reproduce this, also using latest CVS and `emacs -Q'.  Could you
>> try to debug the problem?
>
> Not sure. What should I do?

First, could you go to minibuffer.el, evaluate it (M-x eval-buffer),
trigger the error again, and post the backtrace?  This should produce a
more informative backtrace.

Thanks.

bug#1059: 23.0.60; Error When Trying to Access Remote Files

[Chong Yidong]

[I sent this message several weeks ago, and received no response.
Resending.]

> On Tue, 2008-09-30 at 13:20 -0400, Chong Yidong wrote:
>> > emacs -Q
>> 
>> > (setq debug-on-error t)
>> > C-x C-f /ftp:www.fbeck.net@ftp.strato.de:
>> > [TAB]
>> 
>> > Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
>> >   signal(wrong-type-argument (char-or-string-p nil))
>> >   completion--some(#[(style) "^H A@\n^K\f$" [style
>> >   completion-styles-alist
>> 
>> I can't reproduce this, also using latest CVS and `emacs -Q'.  Could you
>> try to debug the problem?
>
> Not sure. What should I do?

First, could you go to minibuffer.el, evaluate it (M-x eval-buffer),
trigger the error again, and post the backtrace?  This should produce a
more informative backtrace.

bug#1059: 23.0.60; Error When Trying to Access Remote Files

[Florian Beck]

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

Chong Yidong <cyd@stupidchicken.com> writes:

> [I sent this message several weeks ago, and received no response.
> Resending.]
>
>> On Tue, 2008-09-30 at 13:20 -0400, Chong Yidong wrote:
>>> > emacs -Q
>>> 
>>> > (setq debug-on-error t)
>>> > C-x C-f /ftp:www.fbeck.net@ftp.strato.de:
>>> > [TAB]
>>> 
>>> > Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
>>> >   signal(wrong-type-argument (char-or-string-p nil))
>>> >   completion--some(#[(style) "^H A@\n^K\f$" [style
>>> >   completion-styles-alist
>>> 
>>> I can't reproduce this, also using latest CVS and `emacs -Q'.  Could you
>>> try to debug the problem?
>>
>> Not sure. What should I do?
>
> First, could you go to minibuffer.el, evaluate it (M-x eval-buffer),
> trigger the error again, and post the backtrace?  This should produce a
> more informative backtrace.

I'm sorry, I ment to get back to you, but unfortunatley this is one of
the errors that only happen occasionally. I tried a couple of scenarios,
like with and without networking, but could not reliably reproduce the
error. It does still happen from time to time.

Now, I followd your advice and produced a somewhat more informative
backtrace. How do I get rid of the ellipses? (print-length is nil)

Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
  signal(wrong-type-argument (char-or-string-p nil))
  (if firsterror (signal (car firsterror) (cdr firsterror)))
  (or res (if firsterror (signal ... ...)))
  (let ((firsterror nil) res) (while (and ... xs) (condition-case err ... ...)) (or res (if firsterror ...)))
  completion--some((lambda (style) (funcall (nth 1 ...) string table pred point)) (basic partial-completion))
  (if (and (symbolp table) (get table ...)) (funcall table string pred nil point) (completion--some (lambda ... ...) completion-styles))
  completion-try-completion(#("/ftp:www.fbeck.net@ftp.strato.de:" 1 32 (gnus-callback gnus-button-push gnus-data #<marker at 422 in *Article*>)) read-file-name-internal nil 33)
  funcall(completion-try-completion #("/ftp:www.fbeck.net@ftp.strato.de:" 1 32 (gnus-callback gnus-button-push gnus-data #<marker at 422 in *Article*>)) read-file-name-internal nil 33)
  (let* ((beg ...) (end ...) (string ...) (comp ...)) (cond (... ... ... ...) (... ...) (t ...)))
  completion--do-completion()
  (let ((--cl-var-- ...)) (cond (... nil) (... ... ... t) (... ... ... t) (t t)))
  (case (completion--do-completion) (0 nil) (1 (goto-char ...) (minibuffer-message "Sole completion") t) (3 (goto-char ...) (minibuffer-message "Complete, but not unique") t) (t t))
  (if (window-live-p window) (with-current-buffer (window-buffer window) (if ... ... ...) nil) (case (completion--do-completion) (0 nil) (1 ... ... t) (3 ... ... t) (t t)))
  (let ((window minibuffer-scroll-window)) (if (window-live-p window) (with-current-buffer ... ... nil) (case ... ... ... ... ...)))
  minibuffer-complete()
  call-interactively(minibuffer-complete nil nil)
  completing-read("Find file: " read-file-name-internal nil nil "~/Material/src/emacs/lisp/" file-name-history "~/Material/src/emacs/lisp/")
  (progn (add-hook (quote minibuffer-setup-hook) setup-hook) (completing-read prompt (quote read-file-name-internal) nil mustmatch insdef (quote file-name-history) default-filename))
  (unwind-protect (progn (add-hook ... setup-hook) (completing-read prompt ... nil mustmatch insdef ... default-filename)) (remove-hook (quote minibuffer-setup-hook) setup-hook))
  (let (setup-hook) (setq setup-hook (list ... ... ...)) (unwind-protect (progn ... ...) (remove-hook ... setup-hook)))
  (let ((--cl-dir-- ...)) (setf (symbol-value --cl-dir--) (file-name-as-directory ...)) (let (setup-hook) (setq setup-hook ...) (unwind-protect ... ...)))
  (lexical-let ((dir ...)) (minibuffer-with-setup-hook (lambda nil ...) (completing-read prompt ... nil mustmatch insdef ... default-filename)))
  (if (not (next-read-file-uses-dialog-p)) (lexical-let (...) (minibuffer-with-setup-hook ... ...)) (let (...) (when ... ... ...) (if default-filename ...) (setq add-to-history t) (x-file-dialog prompt dir default-filename mustmatch ...)))
  (let* ((val ...) (replace-in-history ...)) (when (eq val default-filename) (if ... ...) (setq val "")) (unless val (error "No file name specified")) (if (and default-filename ...) (setq val default-filename)) (setq val (substitute-in-file-name val)) (if replace-in-history (let ... ... ...) (if add-to-history ...)) val)
  (let ((completion-ignore-case read-file-name-completion-ignore-case) (minibuffer-completing-file-name t) (read-file-name-predicate ...) (add-to-history nil)) (let* (... ...) (when ... ... ...) (unless val ...) (if ... ...) (setq val ...) (if replace-in-history ... ...) val))
  (if read-file-name-function (funcall read-file-name-function prompt dir default-filename mustmatch initial predicate) (let (... ... ... ...) (let* ... ... ... ... ... ... val)))
  (let ((insdef ...)) (if read-file-name-function (funcall read-file-name-function prompt dir default-filename mustmatch initial predicate) (let ... ...)))
  read-file-name("Find file: " nil "/home/flo/Material/src/emacs/lisp/" 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)

bug#1059: 23.0.60; Error When Trying to Access Remote Files

[Florian Beck]

I didn't experience this bug for quite some time now. Maybe close it for
now? I will refile the bug in case it should resurface.
-- 
Florian Beck