23.0.50; ido-make-file-list error taking substring of ""

[Trent W. Buck]

[Please CC me; I'm not subscribed to the list.]

Invoking emacs thusly:

emacs -Q -nw  -eval '(load "ido.el")'  -f ido-mode  -f toggle-debug-on-error  
/sudo::/  -eval "(call-interactively 'ido-find-file)"

causes the following backtrace.  The immediate problem is
`ido-make-file-list' trying to take the substring [0,1] of an empty
string from its local variable `ido-temp-list'.  The same problem
seems to occur for other TRAMP methods.

This is a duplicate of http://article.gmane.org/gmane.emacs.devel/87509

Debugger entered--Lisp error: (args-out-of-range "" 0 1)
  substring("" 0 1)
  (string-equal (substring x 0 1) ".")
  (if (string-equal (substring x 0 1) ".") x)
  (lambda (x) (if (string-equal ... ".") x))("")
  mapcar((lambda (x) (if (string-equal ... ".") x)) ("" "bin/" "boot/" "dev/" 
"etc/" "home/" "initrd/" "initrd.img" "lib/" "lost+found/" "media/" "mnt/" 
"opt/" "proc/" "root/" "sbin/" "srv/" "sys/" "tmp/" "usr/" "var/" "vmlinuz"))
  (delq nil (mapcar (lambda ... ...) ido-temp-list))
  (ido-to-end (delq nil (mapcar ... ido-temp-list)))
  (let ((ido-temp-list ...)) (setq ido-temp-list (sort ido-temp-list ...)) 
(unless (ido-is-tramp-root ido-current-directory) (let ... ...)) (ido-to-end 
(delq nil ...)) (if (and default ...) (if ... ... ... ...)) (when 
ido-show-dot-for-dired (setq ido-temp-list ...) (setq ido-temp-list ...)) 
(run-hooks (quote ido-make-file-list-hook)) ido-temp-list)
  ido-make-file-list(nil)
  (and (not ido-directory-nonreadable) (not ido-directory-too-big) 
(ido-make-file-list ido-default-item))
  (setq ido-ignored-list nil ido-cur-list (and (not ido-directory-nonreadable) 
(not ido-directory-too-big) (ido-make-file-list ido-default-item)))
  (cond (ido-keep-item-list (setq ido-keep-item-list nil ido-rescan nil)) ((eq 
ido-cur-item ...) (setq ido-ignored-list nil ido-cur-list ...)) ((eq 
ido-cur-item ...) (setq ido-ignored-list nil ido-cur-list ...)) ((eq 
ido-cur-item ...) (setq ido-ignored-list nil ido-cur-list ...)) ((eq 
ido-cur-item ...) (setq ido-ignored-list nil ido-cur-list ...)) (t nil))
  (while (not done) (ido-trace "\n_LOOP_" ido-text-init) (setq ido-exit nil) 
(setq ido-rescan t) (setq ido-rotate nil) (setq ido-text "") (when 
ido-set-default-item (setq ido-default-item ...) (if ... ...) (ido-trace "new 
default" ido-default-item) (if ido-default-item ...) (setq ido-set-default-item 
nil)) (if ido-process-ignore-lists-inhibit (setq ido-process-ignore-lists nil)) 
(if (and ido-use-merged-list ... ...) (let ... ... ...)) (cond 
(ido-keep-item-list ...) (... ...) (... ...) (... ...) (... ...) (t nil)) (setq 
ido-rotate-temp nil) (if ido-process-ignore-lists-inhibit (setq 
ido-process-ignore-lists t ido-process-ignore-lists-inhibit nil)) 
(ido-set-matches) (if (and ido-matches ...) (setq ido-try-merged-list t)) (let 
(... ... ... ... ... ... ...) (setq ido-exit nil) (setq ido-final-text ...)) 
(ido-trace "completing-read" ido-final-text) (if (get-buffer 
ido-completion-buffer) (kill-buffer ido-completion-buffer)) (ido-trace 
"\n_EXIT_" ido-exit) (cond (... ... nil) (... ...) (... ... nil) (... ...) (... 
...) (... ...) (... ... ...) (... ... ...) (... ...) (t ... ...)))
  (let ((ido-cur-item item) (ido-entry-buffer ...) (ido-process-ignore-lists t) 
(ido-process-ignore-lists-inhibit nil) (ido-set-default-item t) 
ido-default-item ido-selected ido-final-text (done nil) (icomplete-mode nil) 
ido-cur-list ido-ignored-list (ido-rotate-temp nil) (ido-keep-item-list nil) 
(ido-use-merged-list nil) (ido-try-merged-list t) (ido-pre-merge-state nil) 
(ido-case-fold ido-case-fold) (ido-enable-prefix ido-enable-prefix) 
(ido-enable-regexp ido-enable-regexp)) (ido-setup-completion-map) (setq 
ido-text-init initial) (setq ido-input-stack nil) (run-hooks (quote 
ido-setup-hook)) (while (not done) (ido-trace "\n_LOOP_" ido-text-init) (setq 
ido-exit nil) (setq ido-rescan t) (setq ido-rotate nil) (setq ido-text "") 
(when ido-set-default-item ... ... ... ... ...) (if 
ido-process-ignore-lists-inhibit ...) (if ... ...) (cond ... ... ... ... ... 
...) (setq ido-rotate-temp nil) (if ido-process-ignore-lists-inhibit ...) 
(ido-set-matches) (if ... ...) (let ... ... ...) (ido-trace "completing-read" 
ido-final-text) (if ... ...) (ido-trace "\n_EXIT_" ido-exit) (cond ... ... ... 
... ... ... ... ... ... ...)) ido-selected)
  ido-read-internal(file "Find file: " ido-file-history nil nil nil)
  (setq filename (ido-read-internal item (or prompt "Find file: ") (quote 
ido-file-history) (and ... buffer-file-name) nil initial))
  (let ((minibuffer-completing-file-name t)) (setq filename (ido-read-internal 
item ... ... ... nil initial)))
  (if filename nil (setq ido-saved-vc-hb vc-handled-backends) (let (...) (setq 
filename ...)))
  (unless filename (setq ido-saved-vc-hb vc-handled-backends) (let (...) (setq 
filename ...)))
  (let (ido-saved-vc-hb (vc-handled-backends ...) (ido-work-directory-index -1) 
(ido-work-file-index -1) (ido-find-literal nil)) (unless filename (setq 
ido-saved-vc-hb vc-handled-backends) (let ... ...)) (cond (... ...) (... ...) 
(... ...) (... ...) (... ...) (... ... ... ... ...) (... ... ...) (... ... ... 
... ... ... ... ...) (... ... ... ... ... ... ...) (... ... ... ... ... ... 
...) (filename ... ... ... ... ... ...)))
  (let ((ido-current-directory ...) (ido-context-switch-command switch-cmd) 
ido-directory-nonreadable ido-directory-too-big filename) (if (or ... ...) 
(setq filename t ido-exit ...) (setq ido-directory-nonreadable ... 
ido-directory-too-big ...)) (when (and ... ...) (let ... ... ...)) (let 
(ido-saved-vc-hb ... ... ... ...) (unless filename ... ...) (cond ... ... ... 
... ... ... ... ... ... ... ...)))
  ido-file-internal(raise-frame)
  ido-find-file()
  call-interactively(ido-find-file)
  eval((call-interactively (quote ido-find-file)))
  command-line-1(("-eval" "(load \"ido.el\")" "-f" "ido-mode" "-f" 
"toggle-debug-on-error" "/sudo::/" "-eval" "(call-interactively 
'ido-find-file)"))
  command-line()
  normal-top-level()



In GNU Emacs 23.0.50.1 (i486-pc-linux-gnu, GTK+ Version 2.12.5)
 of 2008-01-21 on elegiac, modified by Debian
 (emacs-snapshot package, version 1:20080120-1)
configured using `configure  '--build' 'i486-linux-gnu' '--host' 
'i486-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib' 
'--libexecdir=/usr/lib' '--localstatedir=/var' '--infodir=/usr/share/info' 
'--mandir=/usr/share/man' '--with-pop=yes' 
'--enable-locallisppath=/etc/emacs-snapshot:/etc/emacs:/usr/local/share/emacs/23.0.50/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/23.0.50/site-lisp:/usr/share/emacs/site-lisp:/usr/share/emacs/23.0.50/leim'
 '--with-x=yes' '--with-x-toolkit=gtk' 'build_alias=i486-linux-gnu' 
'host_alias=i486-linux-gnu' 'CFLAGS=-DDEBIAN -DSITELOAD_PURESIZE_EXTRA=5000 -g 
-O2''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: C
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_AU.utf8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Post

Minor modes in effect:
  xterm-mouse-mode: t
  shell-dirtrack-mode: t
  icomplete-mode: t
  partial-completion-mode: t
  show-paren-mode: t
  delete-selection-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
ESC O A ESC O B ESC x r e p o r t SPC e m a c s SPC 
b u g RET

Recent messages:
Loading /etc/emacs/site-start.d/50python-docutils.el (source)...done
Loading /etc/emacs/site-start.d/50scsh.el (source)...done
Loading /etc/emacs/site-start.d/50w3m-el-snapshot.el (source)...done
Loading /etc/emacs/site-start.d/51debian-el.el (source)...done
Loading subst-ksc...done
Loading subst-gb2312...done
Loading subst-big5...done
Loading subst-jis...done
For information about GNU Emacs and the GNU system, type C-h C-a.
Modification-flag cleared

signature.asc
Description: Digital signature